On 11.10.2011 15:43, Frank Schlottmann-Gödde wrote:

> On 11.10.2011 09:22, sir_wally_lewis wrote:

> {
> /*Converts a Firebird datetime value to a pascal tdatetime*/
> DECLARE EXTERNAL FUNCTION dt_topas
> date.
> RETURNS double precision by value
> ENTRY_POINT 'dt_topas' MODULE_NAME 'libfpc_udf_dt.so';
>
>
> }

Sorry, should be:
{
/*Converts a tdatetime value to a firebird datetime */
DECLARE EXTERNAL FUNCTION dt_tofb
double precision
RETURNS timestamp FREE_IT
ENTRY_POINT 'dt_tofb' MODULE_NAME 'libfpc_udf_dt.so';
}

>
> function pascaldatetofbdate(var pscl_dt : double):PISC_QUAD;cdecl;export;
> var
> tm_date:Tm;
> yyyy,mm,dd,hh,nn,ss,zzz : word;

mit freundlichen Grüßen
Frank Schlottmann-Gödde

--
"Fascinating creatures, phoenixes, they can carry immensely heavy loads,
their tears have healing powers and they make highly faithful pets."
- J.K. Rowling