Redondeos extraños en Delphi con Currency y Firebird 2.0

[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