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; |
|