Генерация значения TDateTime, установленное на самый конец месяца
DateUtils unit
function EndOfAMonth ( const Year, Month : Word ) : TDateTime;
Описание
Функция EndOfAMonth генерирует значение TDateTime, установленное на данный Год (Year) и Месяц (Month) с днём установленным на последнее число месяца, и времени, установленного на 1 миллисекунду перед полуночью.
Значение Года (Year) должно быть между 0 и 9999.
Значение Месяца (Month) должно быть между 1 (Январь) и 12 (Декабрь).
Примечания
Ошибки в значениях параметра выдают EConvertError.
Похожие команды
EndOfADay Генерирует значение TDateTime, установленное на самый конец дня
Пример кода : Установка даты на последнюю миллисекунду февраля 2000
var
mydate : TDateTime;
begin
myDate := EndOfAMonth(2000, 2); // Гарантируем, что Миллисекунды
будут показаны
LongTimeFormat := 'hh:mm:ss.zzz';
ShowMessage('Конец февраля 2000 = '+DateTimeToStr(myDate));
end;