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