| DOW2ESBDayOfWeek Function | 
Unit
QESBPCSDateTime
Declaration
Function DOW2ESBDayOfWeek(const DOW: Byte): TESBDayOfWeek;Implementation
 
| function DOW2ESBDayOfWeek (const DOW: Byte): TESBDayOfWeek; begin if (DOW < 1) or (DOW > 7) then raise EConvertError.Create (rsInvalidDOW); Result := TESBDayOfWeek (DOW - 1); End; | 
|  |