blob: a34c2ae2b8c457ebc22e29c622686bb7f736c85f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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.
|
