| Date2Month Function |
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 RoutinesImplementation
function Date2Month (const DT: TDateTime): Word;
var
D, Y: Word;
begin
OptDecodeDateW (DT, Y, Result, D);
End; |
|
|