StartOfWeekNo Routines |
Unit
QESBPCSDateTime
Overloaded Variants |
Function StartOfWeekNo(const WeekNo, Year: Word): TDateTime; |
Function StartOfWeekNo(const WeekNo, Year: Integer): TDateTime; |
Declaration
Function StartOfWeekNo(const WeekNo, Year: Word): TDateTime;
Parameters |
WeekNo | Week Number in given year. |
Year | 4 digit year such as 1999. |
Category
Date/Time Arithmetic Routines
Week Based Arithmetic RoutinesImplementation
function StartOfWeekNo (const WeekNo, Year: Word): TDateTime; var FirstSunday: TDateTime; begin FirstSunday := GetFirstSundayOfYear (Year); if Date2Day (FirstSunday) = 1 then Result := AddWeeks (FirstSunday, WeekNo - 1) else Result := AddWeeks (FirstSunday, WeekNo - 2) End; |
Declaration
Function StartOfWeekNo(const WeekNo, Year: Integer): TDateTime;Implementation
function StartOfWeekNo (const WeekNo, Year: Integer): TDateTime; var FirstSunday: TDateTime; begin FirstSunday := GetFirstSundayOfYear (Year); if OptDate2Day (FirstSunday) = 1 then Result := AddWeeks (FirstSunday, WeekNo - 1) else Result := AddWeeks (FirstSunday, WeekNo - 2) End; |
|