blob: 100786523e34c0d79a2d6166f34124874b24c310 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Program Example22;
{ This program demonstrates the SystemTimeToDateTime 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;
Writeln ('Converted : ',DateTimeToStr(SystemTimeToDateTime(ST)));
End.
|
