Redondeo

[Crashthebig]

es muy simple el redondeo solo debes incluir en la seccion uses la libreria math y utilizar la funcion SimpleRoundTo().
Esta funcion te permite redonder un numero de la siguiente forma:

SimpleRoundTo(1234567, 3) 1234000
SimpleRoundTo(1.234, -2) 1.23
SimpleRoundTo(1.235, -2) 1.24
SimpleRoundTo(-1.235, -2) -1.23
ej:
Código Delphi [-]var a,b,c:real begin a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); c:=a/b; edit3.text:=floattostr(SimpleRoundTo(c,-2));

este codigo lo que hace es que hacer una division de dos numeros reales y formatea la salida para que el resultado de la division solo tenga dos cifras decimales ej:
53/3=17,6666666666667;
pero con simpleroundto:
53/3=17.67

[rgstuamigo]

Mira aqui

[novato_erick]

Siguiendo este post que tiene muchos años ya sin embargo me esta pasando algo curioso respecto al redondeo con la función

Código Delphi [-]
 function SimpleRoundTo(variable, -2)
//Resultado en una suma de 11.21 + 0.78 = 11.99 con la función me redondea a 12.00

En este caso como verán ese centavo me está causando diferencia en el desarrollo que estoy realizando mucha diferencia a la hora de los reportes de ventas.

Alguna mejor idea de funciones que me retorne valores deseados reales... espero alguna gran ayuda...


Saludos


novato_erick

[Casimiro Notevi]

¿Y cual es el problema?

[ecfisa]

Hola novato_erick.

A mi tampoco me queda claro si lo que esperas es 11.99 y obtenes 12 o viceversa.

El método común de redondeo consiste en verificar el valor del próximo dígito a la derecha del que se quiere redondear. Si este es menor a 5, el dígito a redondear no se altera, caso contrario se incrementa su valor en uno.

Si el valor a redondear a dos cifras es 11.99, entonces:

Código Delphi [-]
  Resultado:= SimpleRoundTo(11.99); // el segundo parámetro es -2 por defecto

dejará en la variable "Resultado" el valor 11.99, para hacerlo mas claro agreguemos un cero a la derecha: 11.990. Como queremos redondear a dos cifras, revisamos el valor de la tercera (0), es menor que cinco y por tanto no se tiene que alterar el valor de la segunda.

Para lograr el resultado 12 a partir de 11.99 habría que hacer:

Código Delphi [-]
Resultado:= SimpleRoundTo(11.99, -1);

Si estas obteniendo otro comportamiento, sinceramente no sé que puede estar pasando...

Saludos