DWY2Date Routines |
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 RoutinesImplementation
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; |
|