blob: 0f68139ccf7d8d7a2e9e5de1dfb2bfb759535b51 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program Example41;
{ This program demonstrates the WeekOfTheMonth function }
Uses SysUtils,DateUtils;
Var
N : TDateTime;
Begin
N:=Now;
Writeln('Week of the Month : ',WeekOfTheMonth(N));
Writeln('Day of the Month : ',DayOfTheMonth(N));
Writeln('Hour of the Month : ',HourOfTheMonth(N));
Writeln('Minute of the Month : ',MinuteOfTheMonth(N));
Writeln('Second of the Month : ',SecondOfTheMonth(N));
Writeln('MilliSecond of the Month : ',
MilliSecondOfTheMonth(N));
End.
|
