| GetFirstSundayOfYear Routines | 
Returns First Sunday of the Year, for a given Year.Unit
QESBPCSDateTime
Declaration
Function GetFirstSundayOfYear(const Year: Word): TDateTime;
Description
Used in Week No Routines.
| Year | the Year to be processed - should be 4 digit, eg 1999. | 
| DT | the Date to be processed. | 
Category
Date/Time Arithmetic Routines
Year Based Arithmetic Routines
Week Based Arithmetic Routines
Implementation
 
  | function GetFirstSundayOfYear (const Year: Word): TDateTime;
var
     StartYear: TDateTime;
begin
     StartYear := GetFirstDayOfYear (Year);
     if DayOfWeek (StartYear) = 1 then
          Result := StartYear
     else
          Result := StartOfWeek (StartYear) + 7;
End; | 
Declaration
Function GetFirstSundayOfYear(const Year: Integer): TDateTime;Implementation
 
  | function GetFirstSundayOfYear (const Year: Integer): TDateTime;
var
     StartYear: TDateTime;
begin
     StartYear := GetFirstDayOfYear (Year);
     if DayOfWeek (StartYear) = 1 then
          Result := StartYear
     else
          Result := StartOfWeek (StartYear) + 7;
End; | 
Declaration
Function GetFirstSundayOfYear(const DT: TDateTime): TDateTime;Implementation
 
  | function GetFirstSundayOfYear (const DT: TDateTime): TDateTime;
begin
     Result := GetFirstDayOfYear (OptDate2Year (DT));
End; | 
| HTML generated by Time2HELP | 
http://www.time2help.com