ThisMonth Function
Returns the current Month - from Today's Date.

Unit
QESBPCSDateTime

Declaration
Function ThisMonth: Word;

Description
For a faster Integer routine see OptThisMonth.

Category
Date/Time Conversion Routines
Month Based Arithmetic Routines

Implementation

function ThisMonth: Word;
{$IFDEF MSWINDOWS}
var
     ST: TSystemTime;
begin
     Windows.GetLocalTime (ST);
     Result := ST.wMonth;
end;
{$ENDIF}
{$IFDEF LINUX}
var
     T: TTime_T;
     UT: TUnixTime;
begin
     __time (@T);
     localtime_r (@T, UT);
     Result := UT.tm_mon + 1;
End;


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