blob: df4d1acd64e7f3a0bbd3b104743fa5a24b423c24 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example44;
{ This program demonstrates the MinuteOfTheHour function }
Uses SysUtils,DateUtils;
Var
N : TDateTime;
Begin
N:=Now;
Writeln('Minute of the Hour : ',MinuteOfTheHour(N));
Writeln('Second of the Hour : ',SecondOfTheHour(N));
Writeln('MilliSecond of the Hour : ',
MilliSecondOfTheHour(N));
End.
|
