Código de FoxPro/Visual FoxPro - Redondear un numero

FUNCTION REDONDEA(P1)

* Programa: REDONDEA

* Objetivo: "Redondear" cantidades a fracción .05

* Escrito : Eduardo A.Ureña Solano

* País: Costa Rica

* Se debe pasar el parámetro P1, que es el valor numérico a redondear a 0.05

P1=P1+.0025

P1=INT(P1*20+.5)/20

RETURN P1