ISODOW2DOW Function |
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 RoutinesImplementation
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; |
|