TParadox.GetFieldData dosn't convert correctly Timestamp to TDateTime
Original Reporter info from Mantis: pminarik
-
Reporter name:
Original Reporter info from Mantis: pminarik
- Reporter name:
Description:
The following code dosen't work correctly:
pxfTimestamp:
begin
Result:=(PX_get_data_double(FDoc,buf,flen,@R)>0);
if Result then
begin
R:=R/1000.0;
longv:=trunc(R /86400);
D:=Longv+1721425-2415019;
longv:=(Trunc(r) mod 86400);
PDateTime(Buffer)^:=D+(Longv/MSecsPerday);
end;
end;
I changed it to:
pxfTimestamp:
begin
Result:=(PX_get_data_double(FDoc,buf,flen,@R)>0);
if Result then
begin
longv:=trunc(R /86400000);
D:=Longv+1721425-2415019;
longv:=(Trunc(r) mod 86400000);
PDateTime(Buffer)^:=D+(Longv/MSecsPerday);
end;
end;
Mantis conversion info:
- Mantis ID: 23826
- Version: 2.6.0
- Fixed in version: 3.0.0
- Fixed in revision: 26684 (#c1846692)
- Target version: 3.0.0