| 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; | 
|  |