GetFirstDayOfQuarter Routines |
Unit
QESBPCSDateTime
Overloaded Variants |
Declaration
Function GetFirstDayOfQuarter(const DT: TDateTime): TDateTime;
Parameters |
DT | Date/Time to process. |
Qtr | Quarter No, 1 through 4. |
Year | 4-digit Year such as 1999. |
Category
Date/Time Arithmetic RoutinesImplementation
function GetFirstDayofQuarter (const DT: TDateTime): TDateTime; var D, M, Y: Integer; begin OptDecodeDateI (DT, Y, M, D); case M of 1..3: M := 1; 4..6: M := 4; 7..9: M := 7; 10..12: M := 10; end; Result := OptEncodeDateI (Y, M, 1) + Frac (DT); End; |
Declaration
Function GetFirstDayOfQuarter(const Qtr: Byte; const Year: Word): TDateTime;Implementation
function GetFirstDayofQuarter (const Qtr: Byte; const Year: Word): TDateTime; begin Result := OptEncodeDateW (Year, (Qtr - 1) * 3 + 1, 1); End; |
Declaration
Function GetFirstDayOfQuarter(const Qtr, Year: Integer): TDateTime;Implementation
function GetFirstDayofQuarter (const Qtr, Year: Integer): TDateTime; begin Result := OptEncodeDateI (Year, (Qtr - 1) * 3 + 1, 1); End; |
|