| 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; | 
|  |