DOW2ISODOW Function
Converts a Delphi Day of Week into an ISO-8601 Day Of Week.

Unit
QESBPCSDateTime

Declaration
Function DOW2ISODOW(const DOW: Byte): Byte;

Parameters
DOW Day of Week where Sunday is 1 through Saturday is 7.

Returns
Day of Week where Monday is 1 through Sunday is 7.

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

function DOW2ISODOW (const DOW: Byte): Byte;
begin
     if (DOW < 1) or (DOW > 7) then
          raise EConvertError.Create (rsInvalidDOW);

     Result := Dow - 1;
     if Result = 0 then
          Result := 7;
End;


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