ESBMonth2Month Function

Unit
QESBPCSDateTime

Declaration
Function ESBMonth2Month(const Month: TESBMonth): Integer;

Implementation

function ESBMonth2Month (const Month: TESBMonth): Integer;
begin
     Result := Integer (Month) + 1;
End;


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