blob: e4148a2cd871304e8da919d259510adb558510ad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example5;
{ This program demonstrates the DateTimeToSystemTime function }
Uses sysutils;
Var ST : TSystemTime;
Begin
DateTimeToSystemTime(Now,ST);
With St do
begin
Writeln ('Today is ',year,'/',month,'/',Day);
Writeln ('The time is ',Hour,':',minute,':',Second,'.',MilliSecond);
end;
End.
|
