| DaysInThisMonth Function | 
Unit
QESBPCSDateTime
Declaration
Function DaysInThisMonth: Byte;
Category
Date/Time Arithmetic Routines
Month Based Arithmetic RoutinesImplementation
 
| function DaysInThisMonth: Byte;
begin
     Result := DaysInMonth (ESBToday);
End; | 
|  |