mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-28 16:21:34 +01:00
14 lines
235 B
ObjectPascal
14 lines
235 B
ObjectPascal
Program Example46;
|
|
|
|
{ This program demonstrates the MilliSecondOfTheSecond function }
|
|
|
|
Uses SysUtils,DateUtils;
|
|
|
|
Var
|
|
N : TDateTime;
|
|
|
|
Begin
|
|
N:=Now;
|
|
Writeln('MilliSecond of the Second : ',
|
|
MilliSecondOfTheSecond(N));
|
|
End. |