blob: 7a29412e9ac99accca589256c278326bc7b80168 (
plain)
1
2
3
4
5
6
7
8
9
10
|
Program Example104;
{ This program demonstrates the NthDayOfWeek function }
Uses SysUtils,DateUtils;
Begin
Write('Today is the ',NthDayOfWeek(Today),'-th ');
Writeln(formatdateTime('dddd',Today),' of the month.');
End.
|
