StartOfWeekNo Routines
Returns the Start of the Week for the given WeekNo in the given year, assuming that the Start of the Week is Sunday.

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 Routines

Implementation

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;


HTML generated by Time2HELP
http://www.time2help.com