From 0f7e1af3bb8e06051f7a7192088b32757d9ed886 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 11 Feb 2014 16:36:07 +0000
Subject: [PATCH] * Fixed bug #23464

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

diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc
index 832bbc0f48..165d866de8 100644
--- a/rtl/objpas/sysutils/dati.inc
+++ b/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);