* fixed compilation on systems where comp = int64 (i.e., everything non-x86)

    and thus incompatible with floating point types

git-svn-id: trunk@1875 -

fcl/db/dataset.inc

@@ -538,7 +538,7 @@ begin
               end;
   else
     try
-      TS:=MSecsToTimeStamp(Data.DateTime);
+      TS:=MSecsToTimeStamp(trunc(Data.DateTime));
     except
     end;
   end;