FoxPro/Visual FoxPro - Redondear cifra

Hola... buenos dias...

Necesito de su ayuda por favor... estoy haciendo una factura donde digito cantidad y valor unitario del producto, quiero que al perder el enfoque en el valor unitario me calcule el valor total redondeado a la centena siguiente si la centena es >= a 50, o a la centena anterior si la centena < 50 y además no me arroje decimales, por ejemplo:

si el resultado de cantidad * vr. unitario = 1450 (redondear a 1500)
si el resultado de cantidad * vr. unitario = 1449 (redondear a 1400)

Muchas gracias en lo que me puedan ayudar

No entiendo el ejemplo que das, ya que las cantidades que das como resultado son enteros.
Si los totales fueran 14.50 o 14.49 con la funcion ROUND obtienes lo que quieres:
a=14.50
b=14.49
?round(a, 0)
? round(b, 0)

Muchas gracias...
realmente la idea es trabajar con enteros, pero no con centenas fraccionadas ni con decimales.

si una centena es mayor que 50 o más, aproximar a la centena siguiente y si la centena es menor que la mitad aproximar a la centena anterior.

si el resultado es 150, aproximar a 200
si el resultado es 149, aproximar a 100

Hola Juan

Espero esto te sirva:

c = a*b c = 1230 * 4 = 4920
d = int(c / 100) = 49
d = d * 100 = 4900

Saludos
Juan Carlos

La forma más fácil de hacer esto es dividiendo entre 100, redondear a cero y luego multiplicar por 100.
Ejemplos
1. round(149/100,0) * 100 = 100
2. round(150/100,0) * 100 = 200
3. round(Nnn/100,0) * 100 = NNN

Una posibilidad es que hagas una función por ej

function redondear(num,rd) && num trae el numero que deseo redondear y rd el factor de redondeo a 10/100 etc
num_redondeado=((int((num/rd),0)*rd)+rd)
return(num_redondeado)

ej si deseo redondear 24328 a 24330
num=redondear(24328,10)

24328/10 = 2432.8
parte entera = 2432*10=24320
sumo el factor = 24320+10=24330
devuelve 24330

Te tardaste un poco con la respuesta...

AGRADECE...