From 5786182188aab75c0af3deef2d0743b851811d76 Mon Sep 17 00:00:00 2001 From: michael Date: Sun, 27 Nov 2016 19:54:49 +0000 Subject: [PATCH] * Proper fix for bug ID #30697 git-svn-id: trunk@34997 - --- packages/rtl-objpas/src/inc/dateutil.inc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/packages/rtl-objpas/src/inc/dateutil.inc b/packages/rtl-objpas/src/inc/dateutil.inc index ab0aec9088..65bb94c819 100644 --- 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;