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