PreviousDayOfWeek

Given a day of the week, return the previous day of the week.

Declaration

Source position: dateutil.inc line 137

Arguments

Function result

The day of the week prior to DayOfWeek.

Description

PreviousDayOfWeek returns the previous day of the week. If the current day is the first day of the week (1) then the last day will be returned (7).

See also

Example

Program Example22;

{ This program demonstrates the PreviousDayOfWeek function }

Uses SysUtils,DateUtils;

Var
  D : Word;

Begin
  or:=1 to 7 do
    Writeln('Previous day of ',D,' is : ',PreviousDayOfWeek(D));
End.