Clasico Problema de redondeo, alguien tendra una UDF?

[IcebergDelphi]

Hola amigos necesito una UDF o alguna manera de como poder redondear o mas bien dicho hacer lo siguiente en Firebird:
Si la cantidad es por ejemplo: $2344.50
que el valor sea: $2344.00

Si el Valor es :$2344.51
que el valor sea:$2345.00

Hay una funcion en Delphi
rmTruncate

Que si es negativo redondea hacia abajo y si es positivo hacia arriba

Pero lo quiero hacer desde Firebir ya que ahi tengo todos mis calculos
estoy usando para los campos Numeric(10,2)

Uso Firebird 1.5
Ya declare una Udf llamada Ceilling pero no me da los resultados que deseo.

Saludos y gracias.

[IcebergDelphi]

Hola amigos como sismpre me termino respondiendo ami mismo, voy a escribir el codigo de prueba que acabo de anexar en una consulta, espero que les sirva y si tiene otra sugerencia adelante.

Hice esto en una consulta y al parecer me da el resultado que deseo:

Select Cast ("DetallePagos"."Pago" as Numeric(10,0)) from "DetallePagos"

Las cantidades con: 1,592.61 me las pone 1,593

Y las cantidades con
2,654.35 me las pone 2,654

saludos.

Si alguien tiene mas sugerencias adelante.