blob: 8f87f586f17f4f27b9d20a4b444653745664a547 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Program Example43;
{ This program demonstrates the HourOfTheDay function }
Uses SysUtils,DateUtils;
Var
N : TDateTime;
Begin
N:=Now;
Writeln('Hour of the Day : ',HourOfTheDay(N));
Writeln('Minute of the Day : ',MinuteOfTheDay(N));
Writeln('Second of the Day : ',SecondOfTheDay(N));
Writeln('MilliSecond of the Day : ',
MilliSecondOfTheDay(N));
End.
|
