From 7f2d53dc65da9e6357568f868a4e5f289e779c27 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 3 Jun 2017 15:22:30 +0000
Subject: [PATCH] * Fix 31833

git-svn-id: trunk@36406 -
---
 packages/rtl-objpas/src/inc/dateutil.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/src/inc/dateutil.inc b/packages/rtl-objpas/src/inc/dateutil.inc
index ed2da1be8d..f31049043c 100644
--- a/packages/rtl-objpas/src/inc/dateutil.inc
+++ b/packages/rtl-objpas/src/inc/dateutil.inc
@@ -2153,7 +2153,8 @@ begin
   year := (100*b) + d - 4800 + ( m div 10 );
   result := TryEncodeDate ( Year, Month, Day, ADateTime );
   if Result then
-    ADateTime:=IncMilliSecond(IncHour(ADateTime,-12),MillisecondOfTheDay(Abs(Frac(aValue))));
+//    ADateTime:=IncMilliSecond(IncHour(ADateTime,-12),MillisecondOfTheDay(Abs(Frac(aValue))));
+    ADateTime:=ADateTime+frac(AValue-0.5);
 end;
 
 Function DateTimeToModifiedJulianDate(const AValue: TDateTime): Double;