* Fixed bug ID #23826

git-svn-id: trunk@26684 -

packages/fcl-db/src/paradox/paradox.pp

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