fpcdocs/datutex/ex22.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

Program Example22;

{ This program demonstrates the PreviousDayOfWeek function }

Uses SysUtils,DateUtils;

Var
  D : Word;

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