blob: 1f0282e9e39a71e26a367fbce129d2bd3650a24f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Program Example42;
{ This program demonstrates the WeekOfTheMonth function }
Uses SysUtils,DateUtils;
Var
N : TDateTime;
Begin
N:=Now;
Writeln('Day of the Week : ',DayOfTheWeek(N));
Writeln('Hour of the Week : ',HourOfTheWeek(N));
Writeln('Minute of the Week : ',MinuteOfTheWeek(N));
Writeln('Second of the Week : ',SecondOfTheWeek(N));
Writeln('MilliSecond of the Week : ',
MilliSecondOfTheWeek(N));
End.
|
