| Date2YearMonth Function | 
Unit
QESBPCSDateTime
Declaration
Function Date2YearMonth(const DT: TDateTime): LongWord;
Returns
the Month where 1 = Jan, through 12 = Dec.
Category
Date/Time Conversion Routines
Month Based Arithmetic RoutinesImplementation
 
| function Date2YearMonth (const DT: TDateTime): LongWord;
var
     D, M, Y: Word;
begin
     OptDecodeDateW (DT, Y, M, D);
     Result := Y * 100 + M;
End; | 
|  |