* Proper fix for bug ID #30697

git-svn-id: trunk@34997 -
2025-08-17 02:19:27 +02:00 · 2016-11-27 19:54:49 +00:00 · 2016-11-27 19:54:49 +00:00 · 5786182188
commit 5786182188
parent a25ebbba3e
1 changed files with 2 additions and 1 deletions
--- a/packages/rtl-objpas/src/inc/dateutil.inc
+++ b/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;