mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 04:11:35 +01:00
18 lines
458 B
ObjectPascal
18 lines
458 B
ObjectPascal
Program Example42;
|
|
|
|
{ This program demonstrates the WeekOfTheMonth function }
|
|
|
|
Uses SysUtils,DateUtils;
|
|
|
|
Var
|
|
N : TDateTime;
|
|
|
|
Begin
|
|
N:=Now;
|
|
Writeln('Day of the Week : ',DayOfTheWeek(N));
|
|
Writeln('Hour of the Week : ',HourOfTheWeek(N));
|
|
Writeln('Minute of the Week : ',MinuteOfTheWeek(N));
|
|
Writeln('Second of the Week : ',SecondOfTheWeek(N));
|
|
Writeln('MilliSecond of the Week : ',
|
|
MilliSecondOfTheWeek(N));
|
|
End. |