Redondeos extraños en Delphi con Currency y Firebird 2.0

[[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