Month2ESBMonth Routines

Unit
QESBPCSDateTime

Overloaded Variants
Function Month2ESBMonth(const Month: Word): TESBMonth;
Function Month2ESBMonth(const Month: Integer): TESBMonth;

Declaration
Function Month2ESBMonth(const Month: Word): TESBMonth;

Implementation

function Month2ESBMonth (const Month: Word): TESBMonth;
begin
     if (Month < 1) or (Month > 12) then
          raise EConvertError.Create (rsInvalidMonth);

     Result := TESBMonth (Month - 1);
End;

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

Implementation

function Month2ESBMonth (const Month: Integer): TESBMonth;
begin
     if (Month < 1) or (Month > 12) then
          raise EConvertError.Create (rsInvalidMonth);

     Result := TESBMonth (Month - 1);
End;


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