fpc/docs/datutex/ex25.pp

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.