Mal funcionamiento de truncate en firebird

[[Ivanzinho]]

Al final creé una UDF. Tan simple como:

Código Delphi [-]
library MisUdfs;
uses SysUtils, Windows;
 
function Truncar(var Valor : Real) : real; cdecl;
begin
   Result := Trunc(Valor);
end;
 
exports
  Truncar;
begin
end.

Y me va a la perfección