[Overview][Constants][Procedures and functions][Index] |
Given a day of the week, return the previous day of the week.
Source position: dateutil.inc line 128
function PreviousDayOfWeek( |
DayOfWeek: Word |
):Word; |
DayOfWeek |
|
Day of the week. |
The day of the week prior to DayOfWeek
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).
Remark: | Note that the days of the week are in ISO notation, i.e. 1-based. |
|
Return the previous day. |
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.