DWY2Date Routines
Returns the Date for a given Day of Week, a given WeekNo, and the given Year, assuming that the Start of the Week is Sunday, and that DOW uses 1 for Sunday.

Unit
QESBPCSDateTime

Overloaded Variants
Function DWY2Date(const DOW, WeekNo, Year: Word): TDateTime;
Function DWY2Date(const DOW, WeekNo, Year: Integer): TDateTime;

Declaration
Function DWY2Date(const DOW, WeekNo, Year: Word): TDateTime;

Parameters
DOW Day of Week, 1 = Sunday, 7 = Saturday.
WeekNo Week Number in given year.
Year 4 digit year such as 1999.

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

function DWY2Date (const DOW, WeekNo, Year: Word): TDateTime;
begin
     if (DOW < 1) or (DOW > 7) then
          raise EConvertError.Create (rsInvalidDOW);

     Result := StartOfWeekNo (WeekNo, Year) + DOW - 1;
End;

Declaration
Function DWY2Date(const DOW, WeekNo, Year: Integer): TDateTime;

Implementation

function DWY2Date (const DOW, WeekNo, Year: Integer): TDateTime;
begin
     if (DOW < 1) or (DOW > 7) then
          raise EConvertError.Create (rsInvalidDOW);

     Result := StartOfWeekNo (WeekNo, Year) + DOW - 1;
End;


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