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