fpc/docs/datutex/ex25.pp
2004-12-29 15:16:37 +00:00

12 lines
222 B
ObjectPascal

Program Example25;
{ This program demonstrates the EndOfTheYear function }
Uses SysUtils,DateUtils;
Const
Fmt = '"Last day of this year : "dd mmmm yyyy';
Begin
Writeln(FormatDateTime(Fmt,EndOfTheYear(Today)));
End.