mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-14 10:39:36 +01:00
16 lines
344 B
ObjectPascal
16 lines
344 B
ObjectPascal
Program Example44;
|
|
|
|
{ This program demonstrates the MinuteOfTheHour function }
|
|
|
|
Uses SysUtils,DateUtils;
|
|
|
|
Var
|
|
N : TDateTime;
|
|
|
|
Begin
|
|
N:=Now;
|
|
Writeln('Minute of the Hour : ',MinuteOfTheHour(N));
|
|
Writeln('Second of the Hour : ',SecondOfTheHour(N));
|
|
Writeln('MilliSecond of the Hour : ',
|
|
MilliSecondOfTheHour(N));
|
|
End. |