| GetFirstDayOfYear Routines |
Unit
QESBPCSDateTime
| Overloaded Variants |
| Function GetFirstDayOfYear(const Year: Word): TDateTime; |
| Function GetFirstDayOfYear(const Year: Integer): TDateTime; |
| Function GetFirstDayOfYear(const DT: TDateTime): TDateTime; |
Declaration
Function GetFirstDayOfYear(const Year: Word): TDateTime;
| Parameters |
| 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 RoutinesImplementation
function GetFirstDayOfYear (const Year: Word): TDateTime;
begin
Result := OptEncodeDateW (Year, 1, 1);
End; |
Declaration
Function GetFirstDayOfYear(const Year: Integer): TDateTime;Implementation
function GetFirstDayOfYear (const Year: Integer): TDateTime;
begin
Result := OptEncodeDateI (Year, 1, 1);
End; |
Declaration
Function GetFirstDayOfYear(const DT: TDateTime): TDateTime;Implementation
function GetFirstDayOfYear (const DT: TDateTime): TDateTime;
begin
Result := GetFirstDayOfYear (OptDate2Year (DT));
End; |
|
|