Redondeos extraños en Delphi con Currency y Firebird 2.0

[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