Date2Month Function
Returns the Month number from a given date/time, 1 = Jan, etc.

Unit
QESBPCSDateTime

Declaration
Function Date2Month(const DT: TDateTime): Word;

Parameters
DT Date/Time to Convert.

Returns
the Month where 1 = Jan, through 12 = Dec.

Category
Date/Time Conversion Routines
Month Based Arithmetic Routines

Implementation

function Date2Month (const DT: TDateTime): Word;
var
     D, Y: Word;
begin
     OptDecodeDateW (DT, Y, Result, D);
End;


HTML generated by Time2HELP
http://www.time2help.com