Функция EndOfAMonth – генерация значения TDateTime, установленное на самый конец месяца

Функция EndOfAMonth в Delphi – генерация значения TDateTime, установленное на самый конец месяца.

Функция EndOfAMonth: Установка даты на последнюю миллисекунду февраля 2000

var
  mydate : TDateTime;

begin
  myDate := EndOfAMonth(2000, 2);

  // Гарантируем, что Миллисекунды будут показаны
  LongTimeFormat := 'hh:mm:ss.zzz';
  ShowMessage('Конец февраля 2000 = '+DateTimeToStr(myDate));
end;