Extraer valor decimal

[goduquez]

Necesito extraer el valor decimal de un número, que en Delphi funciona con la funcion frac(); en el archivo "ib_udf2.sql", aparentemente dice que se encuantra en la libreria ib_udf.... la defino asi:

DECLARE EXTERNAL FUNCTION frac
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_frac' MODULE_NAME 'ib_udf';

luego pruebo asi:

select frac(5.30) from RDB$DATABASE

(deberia arrojarme (30) o algo parecido sin el entero.)

y me arroja el siguiente mensaje:

Invalid token.
invalid request BLR at offset 59.
function FRAC is not defined.
module name or entrypoint could not be found.


osea no funciona. alguno la ha utilizado o me pueden ayudar con otro método.

Gracias