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