mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 12:09:30 +02:00
17 lines
392 B
ObjectPascal
17 lines
392 B
ObjectPascal
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. |