* Fixed bug #23464

git-svn-id: trunk@26753 -

rtl/objpas/sysutils/dati.inc

@@ -160,6 +160,7 @@ begin
     end
   else
     begin
+    Date:=Date+1/(msecsperday*2);
     j := pred((Trunc(System.Int(Date)) + 693900) SHL 2);
     ly:= j DIV 146097;
     j:= j - 146097 * cardinal(ly);