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