ISOYWD2Date Routines
Returns the Date for a given Day of Week, a given WeekNo, and the given Year, as defined in ISO-8601.

Unit
QESBPCSDateTime

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

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

Description
Note that the Start of the Week is Monday, and that DOW uses 1 for Monday.

Parameters
Year 4 digit year to which the Week Number applies.
WeekNo the ISO-8601 Week Number in specified Year.
DOW Day of Week, 1 for Monday through 7 for Sunday.

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

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

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

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

Implementation

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

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


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