Subject RE: [firebird-support]Classic cant find UDFs
Author Dimitry Sibiryakov
On 24 Dec 2005 at 14:16, Paul Hope wrote:

>How do you convert a PISC_QUAD to TDateTime?

PISC_QUAD? I don't. I convert PISC_TIMESTAMP that consist TIMESTAMP
values.

IBTimeDivider=24*60*60*10000;
IBDateOffset=-15018;

With PISC_TIMESTAMP(Buffer)^ do
begin
Result := timestamp_date+IBDateOffset;
If Result<0 then
Result := Result-timestamp_time/IBTimeDivider
else
Result := Result+timestamp_time/IBTimeDivider;
end;

--
SY, Dimitry Sibiryakov.