Si bien tu código funcionó bien para mi puedes probar de convertir el valor entero devuelto por Year(Today()) a un valor real (FLOAT, REAL4, etc.) y luego hacer la división.
El código modificado quedaría de la siguiente forma:

METHOD Calcular() CLASS MiClase         LOCAL r4Valor:= 0.0 AS REAL4     r4Valor:= REAL4(Year(Today()))/4     InfoBox{NIL, "Valor", NTrim(r4Valor)}:Show()

Saludos.

Sebastián Bassano

--- En guvoaII@..., <lsantibanez72@v...> escribió:
>
> Hola, saludos a todos. Tengo un pequeño dilema, he revisado los seteos básicos
> pero sigue igual o producto de mi apuro no he podido solucionar lo siguiente:
>
> La operación:
>
> 2006/4 = 501.5
>
> Pero en mi aplicación me da 501.00
>
> METHOD CALCULAR() CLASS MICLASE
> local nVALOR := 0
>
> nVALOR := YEAR(TODAY())/4
>
> INFOBOX{,,STR(nVALOR,10,2}:SHOW()
>
> BLA, BLA, BLA
>
> RETURN NIL
>
> Algo tengo mal, agradeceré sus comentarios, atte.
>
> Larry Santibáñez Flores
>