Redondeos extraños en Delphi con Currency y Firebird 2.0

[Meinard]

Ya revise el hilo que me sugeriste Lepe, pero no encontre solución a mi problema, ya tengo identificada de que manera redondea Firebird y para mi proposito es la adecuada, lo que no logro es hacer que Delphi responda de la misma manera, ó poder controlar de que manera quiero que Delphi aplique el redondeo.

Para que quede un poco más claro cual es mi problema me gustaría que probaran estas líneas de código:

Código Delphi [-]
var
  curTemp: Currency;
begin
  curTemp := 0.825;
  ShowMessage(CurrToStrF(RoundTo(curTemp, -2), ffCurrency, 2));
  curTemp := 0.825 + 1.5;
  ShowMessage(CurrToStrF(RoundTo(curTemp, -2), ffCurrency, 2));
  curTemp := 2.325 - 1.5;
  ShowMessage(CurrToStrF(RoundTo(curTemp, -2), ffCurrency, 2));
end;

• El primer mensaje nos debería de mostrar un resultado de 0.82.
• Tomando en cuenta la experiencia del primer mensaje, entonces sería logico pensar que mostraría 2.32, pero en este caso lo hace de manera distinta mostrando 2.33.
• En el tercer mensaje vuelve a mostrar 0.82. Entonces depende de que número le guste a Delphi ya que si ponemos directamente 2.325 en la variable y ejecutamos nos dara de nuevo 2.33. Al principio sospechaba que tuviera que ver algo el hecho de la suma pero al parecer es culpa de un compilador racista.

Si alguien puede ayudarme a controlar la manera en que Delphi aplica redondeos se los agradecería mucho.

P. D. Trabajo con Delphi 7 y creo que tiene instalada una actualización (no recuerdo de que). Si alguien hace la prueba y no obtiene resultados extraños como los mios le agradecería que especificara con que version de Delphi trabaja, ya que tengo a la mano varias versiones distintas pero trabajo con la 7 ya que es la que me parece más comoda.

[TJose]

Hola Meinard, foro

Si te sirve yo desarrolle una UDF, que me convierte a formato de moneda con redondeo a cero centavos y a cinco centavos.
Para la aplicacion que hice viene bien, no se para otras.
Al ser una udf todo se realiza en la base de datos.

por si no se entendió funciona así:

1.17 -> 1.15
1.18 -> 1.20
1.22 -> 1.20
1.23 -> 1.25

Si te sirve te la envío

Saludos
TJose

[rastafarey]

Ya he se ha explicado muchas veces lo del decimales.

Les recuerdo que uan cosa es lo que esta en la base de datos y otra como s emuestra. Si un calculo te dio 1.23455 y mandas aguardar 1.3 es de suponer que en la bd tendras 1.3 asi que si quieres 1.23455 entonces guarda 1.23455.

Pero el problema nop es de bd si no de compnentes que cuando das formato viasual asi lo mandas a guandar asi(no todos los componentes) asi que guarda los datos completos con todos los decimales(18 si mas no recuerdo).

[[Lepe]]

Empieza mirando la ayuda de RoundTo, allí dice que depende de SetRoundMode, que tiene estos posibles valores:

Value Meaning
rmNearest
Rounds to the closest value.

rmDown
Rounds toward negative infinity.

rmUp
Rounds toward positive infinity.

rmTruncate
Truncates the value, rounding positive numbers down and negative numbers up.

Si ninguno te sirve, siempre puedes implementar tú la función que quieras.

Saludos