paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 05:22:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed StartOfADay

Browse Source
This commit is contained in:
michael 2004-12-29 18:28:21 +00:00
parent 4ca278334c
commit 9dea580a6a
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

@ -852,7 +852,7 @@ end;
Function StartOfADay(const AYear, ADayOfYear: Word): TDateTime;
begin
Result:=StartOfAYear(AYear)+ADayOfYear;
Result:=StartOfAYear(AYear)+ADayOfYear-1;
end;
@ -1996,7 +1996,10 @@ end.
{
$Log$
Revision 1.6 2004-09-20 15:07:19 peter
Revision 1.7 2004-12-29 18:28:21 michael
* Fixed StartOfADay
Revision 1.6 2004/09/20 15:07:19 peter
* typo
Revision 1.5 2004/09/20 06:58:59 michael