fpcdocs/datutex/ex37.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

Program Example37;

{ This program demonstrates the EndOfTheDay function }

Uses SysUtils,DateUtils;

Const
  Fmt = '"End of the day : "dd mmmm yyyy hh:nn:ss';


Begin
  Writeln(FormatDateTime(Fmt,EndOfTheDay(Today)));
End.