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

Unit
QESBPCSDateTime

Declaration
Function ISODOW2DOW(const ISODOW: Byte): Byte;

Parameters
ISODOW Day of Week where Monday is 1 through Sunday is 7.

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

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

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

     Result := ISODow + 1;
     if Result > 7 then
          Result := 1;
End;


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