pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Add comment that GetWeekOfYear (in VpMisc) calculates week number according to ISO specification.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4829 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-24 20:03:19 +00:00
parent 70233a6fc4
commit 31056b3ac8
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpmisc.pas
View File

@ -597,15 +597,16 @@ begin
Result := trunc(dt1) = trunc(dt2); Result := trunc(dt1) = trunc(dt2);
end; end;
// Calculates ISO week number (checked with Jan 1, 2016, which is in week 53).
function GetWeekOfYear(ADate: TDateTime): byte; function GetWeekOfYear(ADate: TDateTime): byte;
// was in TvWeekView // was in TvWeekView.
var var
yr, dummy: word; yr, dummy: word;
First: TDateTime; First: TDateTime;
begin begin
DecodeDate(ADate + (8 - DayOfWeek(ADate)) mod 7 - 3, yr, dummy,dummy); DecodeDate(ADate + (8 - DayOfWeek(ADate)) mod 7 - 3, yr, dummy,dummy);
First := EncodeDate(yr, 1, 1); First := EncodeDate(yr, 1, 1);
Result := (trunc(ADate - First - 3 + (DayOfWeek(First) + 1) mod 7) div 7) + 1; Result := trunc(ADate - First - 3 + (DayOfWeek(First) + 1) mod 7) div 7 + 1;
end; end;