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