EndOfAMonth Delphi - Okolokompa

EndOfAMonth

Модуль: DateUtils
function EndOfAMonth(const AYear, AMonth: Word): TDateTime;

Функция возвращает значение TDateTime, которое представляет последнюю миллисекунду в месяце. Другими словами, функция возвращает последний момент данного месяца, указанный в параметре AMonth :

program FooApp;

{$APPTYPE CONSOLE}

uses

SysUtils, DateUtils;

var

A : TDateTime;

begin

A := EndOfAMonth(2006, 6);

Writeln(DateTimeToStr(A));

Readln;

end.

Вы должны указать год в первом параметре метода.

Эта программа будет отображать на экране консоли: 2006-06-30 23:59:59. Конечно, можно отобразить более точное значение (в миллисекундах).