* 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

@@ -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;
 
 { ---------------------------------------------------------------------