* Proper fix for bug ID #30697

git-svn-id: trunk@34997 -

packages/rtl-objpas/src/inc/dateutil.inc

@@ -2148,8 +2148,9 @@ end;
   ---------------------------------------------------------------------}
 
 Function DateTimeToUnix(const AValue: TDateTime): Int64;
+
 begin
-  Result:=Trunc(DateTimeDiff(AValue,UnixEpoch)*SecsPerDay);
+  Result:=Round(DateTimeDiff(RecodeMillisecond(AValue,0),UnixEpoch)*SecsPerDay);
 end;