GetLastDayOfQuarter Routines |
Unit
QESBPCSDateTime
Overloaded Variants |
Declaration
Function GetLastDayOfQuarter(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 GetLastDayofQuarter (const DT: TDateTime): TDateTime; var D, M, Y: Integer; begin OptDecodeDateI (DT, Y, M, D); case M of 1..3: begin M := 3; D := 31; end; 4..6: begin M := 6; D := 30; end; 7..9: begin M := 9; D := 30; end; 10..12: begin M := 12; D := 31; end; end; Result := OptEncodeDateI (Y, M, D) + Frac (DT); End; |
Declaration
Function GetLastDayOfQuarter(const Qtr: Byte; const Year: Word): TDateTime;Implementation
function GetLastDayofQuarter (const Qtr: Byte; const Year: Word): TDateTime; var D, M: Word; begin case Qtr of 1: begin M := 3; D := 31; end; 2: begin M := 6; D := 30; end; 3: begin M := 9; D := 30; end; 4: begin M := 12; D := 31; end; else begin M := 0; D := 0; end; end; Result := OptEncodeDateW (Year, M, D); End; |
Declaration
Function GetLastDayOfQuarter(const Qtr, Year: Integer): TDateTime;Implementation
function GetLastDayofQuarter (const Qtr, Year: Integer): TDateTime; var D, M: Integer; begin case Qtr of 1: begin M := 3; D := 31; end; 2: begin M := 6; D := 30; end; 3: begin M := 9; D := 30; end; 4: begin M := 12; D := 31; end; else begin M := 0; D := 0; end; end; Result := OptEncodeDateI (Year, M, D); End; |
|