paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed TryEncodeDateTime. Adding a date and a time is not valid for dates before 1899-12-30, use ComposeDateTime instead

Browse Source 
git-svn-id: trunk@12561 -
This commit is contained in:
joost 2009-01-18 16:05:04 +00:00
parent 41a292c403
commit d2d4aa22db
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/dateutil.inc
View File

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