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