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;


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