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