Explorar el Código

* Fixed bug #23464

git-svn-id: trunk@26753 -
michael hace 11 años
padre
commit
0f7e1af3bb
Se han modificado 1 ficheros con 1 adiciones y 0 borrados
  1. 1 0
      rtl/objpas/sysutils/dati.inc

+ 1 - 0
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);