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