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