Функція 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, встановлене на кінець дня.
