From eaad63e82bb317dc5c6a3cc22f4a803581753c72 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 23 Apr 2006 09:55:59 +0000
Subject: [PATCH]  * fix for 4970

git-svn-id: trunk@3318 -
---
 rtl/objpas/sysutils/dati.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc
index 26ff1c06c4..cf823778ff 100644
--- a/rtl/objpas/sysutils/dati.inc
+++ b/rtl/objpas/sysutils/dati.inc
@@ -57,7 +57,7 @@ end;
 function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
 begin
   result.Time := Trunc(Frac(DateTime) * MSecsPerDay);
-  result.Date := DateDelta + Trunc(System.Int(DateTime));
+  result.Date := DateDelta + Round(System.Int(DateTime));
 end ;
 
 {   TimeStampToDateTime converts TimeStamp to a TDateTime value   }