Subject | RE: [firebird-support]Classic cant find UDFs |
---|---|
Author | Dimitry Sibiryakov |
Post date | 2005-12-26T05:20:22Z |
On 24 Dec 2005 at 14:16, Paul Hope wrote:
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.
>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.