| WhichQuarter Function |
Unit
QESBPCSDateTime
Declaration
Function WhichQuarter(const DT: TDateTime): Byte;
| Parameters |
| DT | Date/Time to process. |
Category
Date/Time Arithmetic RoutinesImplementation
function WhichQuarter (const DT: TDateTime): Byte;
begin
Result := (Date2Month (DT) - 1) div 3 + 1;
End; |
|
|