paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-06 19:59:29 +01: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 begin
Result:=StartOfAYear(AYear)+ADayOfYear+EncodeTime(23,59,59,999); Result:=StartOfAYear(AYear)+ADayOfYear-1+EncodeTime(23,59,59,999);
end; end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -1996,7 +1996,10 @@ end.
{ {
$Log$ $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 * Fixed StartOfADay
Revision 1.6 2004/09/20 15:07:19 peter Revision 1.6 2004/09/20 15:07:19 peter