* Fix case for negative dates (bug ID 23464)

git-svn-id: trunk@27124 -

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);