paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 22:10:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed EndOfADay

Browse Source
This commit is contained in:
michael 2004-12-29 18:31:04 +00:00
parent 9dea580a6a
commit d27bebb43a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/dateutil.inc
View File

@ -866,7 +866,7 @@ Function EndOfADay(const AYear, ADayOfYear: Word): TDateTime;
begin
Result:=StartOfAYear(AYear)+ADayOfYear+EncodeTime(23,59,59,999);
Result:=StartOfAYear(AYear)+ADayOfYear-1+EncodeTime(23,59,59,999);
end;
{ ---------------------------------------------------------------------
@ -1996,7 +1996,10 @@ end.
{
$Log$
Revision 1.7 2004-12-29 18:28:21 michael
Revision 1.8 2004-12-29 18:31:04 michael
* Fixed EndOfADay
Revision 1.7 2004/12/29 18:28:21 michael
* Fixed StartOfADay
Revision 1.6 2004/09/20 15:07:19 peter