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