From f9bb91d722cc62f1cdab77359ca74983220a706a Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 13 Mar 2014 09:42:01 +0000
Subject: [PATCH] * Fix case for negative dates (bug ID 23464)

git-svn-id: trunk@27124 -
---
 rtl/objpas/sysutils/dati.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc
index 165d866de8..1571affeed 100644
--- a/rtl/objpas/sysutils/dati.inc
+++ b/rtl/objpas/sysutils/dati.inc
@@ -160,7 +160,10 @@ begin
     end
   else
     begin
-    Date:=Date+1/(msecsperday*2);
+    if Date>0 then
+      Date:=Date+1/(msecsperday*2)
+    else  
+      Date:=Date-1/(msecsperday*2);
     j := pred((Trunc(System.Int(Date)) + 693900) SHL 2);
     ly:= j DIV 146097;
     j:= j - 146097 * cardinal(ly);