paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix dayOfWeek for dates < 0 (bug ID #23144)

Browse Source 
git-svn-id: trunk@22679 -
This commit is contained in:
michael 2012-10-17 07:15:01 +00:00
parent 1cfb612513
commit 9d6b4aa946
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/sysutils/dati.inc
View File

@ -220,8 +220,10 @@ end ;
function DayOfWeek(DateTime: TDateTime): integer;
begin
Result := 1 + (Abs(Trunc(DateTime) - 1) mod 7);
end ;
Result := 1 + ((Trunc(DateTime) - 1) mod 7);
If (Result<=0) then
Inc(Result,7);
end;
{ Date returns the current Date }