mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 04:11:35 +01:00
16 lines
283 B
ObjectPascal
16 lines
283 B
ObjectPascal
Program Example30;
|
|
|
|
{ This program demonstrates the StartOfAMonth function }
|
|
|
|
Uses SysUtils,DateUtils;
|
|
|
|
Const
|
|
Fmt = '"First day of this month : "dd mmmm yyyy';
|
|
Var
|
|
Y,M : Word;
|
|
|
|
Begin
|
|
Y:=YearOf(Today);
|
|
M:=MonthOf(Today);
|
|
Writeln(FormatDateTime(Fmt,StartOfAMonth(Y,M)));
|
|
End. |