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