Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: EndOfAMonth
EndOfAMonth
|
function EndOfAMonth ( const Year, Month : Word ) : TDateTime; |
Функция (Unit DateUtils)
|
Генерация значения TDateTime, установленное на самый конец месяца
|
Описание:
|
Функция EndOfAMonth генерирует значение TDateTime, установленное на данный Год (Year) и Месяц (Month) с днём установленным на последнее число месяца, и времени, установленного на 1 миллисекунду перед полуночью. Значение Года (Year) должно быть между 0 и 9999. Значение Месяца (Month) должно быть между 1 (Январь) и 12 (Декабрь). |
Пример кода: Установка даты на последнюю миллисекунду февраля 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 |
Примечание:
|
Ошибки в значениях параметра выдают EConvertError. |