paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 17:26:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug ID #23826

Browse Source 
git-svn-id: trunk@26684 -
This commit is contained in:
michael 2014-02-06 12:56:17 +00:00
parent 52af9a2c89
commit c184669206
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/paradox/paradox.pp
View File

@ -736,10 +736,9 @@ begin
Result:=(PX_get_data_double(FDoc,pansichar(buf),flen,@R)>0); Result:=(PX_get_data_double(FDoc,pansichar(buf),flen,@R)>0);
if Result then if Result then
begin begin
R:=R/1000.0; longv:=trunc(R /86400000);
longv:=trunc(R /86400);
D:=Longv+1721425-2415019; D:=Longv+1721425-2415019;
longv:=(Trunc(r) mod 86400); longv:=(Trunc(r) mod 86400000);
PDateTime(Buffer)^:=D+(Longv/MSecsPerday); PDateTime(Buffer)^:=D+(Longv/MSecsPerday);
end; end;
end; end;