From d2d4aa22db40f370869c28623a4ff42368e9ed04 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Sun, 18 Jan 2009 16:05:04 +0000
Subject: [PATCH]  * Fixed TryEncodeDateTime. Adding a date and a time is not
 valid for dates before 1899-12-30, use ComposeDateTime instead

git-svn-id: trunk@12561 -
---
 rtl/objpas/dateutil.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/dateutil.inc b/rtl/objpas/dateutil.inc
index 529278fafa..4e78dde4f6 100644
--- a/rtl/objpas/dateutil.inc
+++ b/rtl/objpas/dateutil.inc
@@ -1517,7 +1517,7 @@ begin
   Result:=TryEncodeDate(AYear,AMonth,ADay,AValue);
   Result:=Result and TryEncodeTime(AHour,AMinute,ASecond,Amillisecond,Tmp);
   If Result then
-    Avalue:=AValue+Tmp;
+    Avalue:=ComposeDateTime(AValue,Tmp);
 end;
 
 { ---------------------------------------------------------------------