mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 14:49:27 +02:00
16 lines
323 B
ObjectPascal
16 lines
323 B
ObjectPascal
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. |