blob: 9c74e8db5a75943b3536fddc6c3a857e4400f2e4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Program Example27;
{ This program demonstrates the EndOfAYear function }
Uses SysUtils,DateUtils;
Const
Fmt = '"Last day of this year : "dd mmmm yyyy';
Begin
Writeln(FormatDateTime(Fmt,EndOfAYear(YearOf(Today))));
End.
|
