Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: IncDay
IncDay
|
function IncDay ( const StartDateTime : TDateTime {; NumberOfDays : Integer = 1} ) : TDateTime; |
Функция (Unit DateUtils)
|
Приращивает переменную типа TDateTime на + или - число дней
|
Описание:
|
Функция IncDay возвращает значение TDateTime, которое на NumberOfDays дней больше, чем переданное значение StartDateTime. Год и значения месяца увеличиваются соответствующе. Значение приращения является произвольным (по умолчанию 1). |
Пример кода: Простой пример приращения и декремента
|
var myDate : TDateTime; begin // Устанавливаем нашу дату как раз перед концом 2000 года myDate := EncodeDate(2000, 12, 30); ShowMessage('моя дата = '+DateToStr(myDate)); // Добавить 10 дней к этой дате myDate := IncDay(myDate, 10); ShowMessage('моя дата + 10 дней = '+DateToStr(myDate)); // Subtract 12 days from this date myDate := IncDay(myDate, -12); ShowMessage('моя дата - 12 дней = '+DateToStr(myDate)); end;
Результат:
|
моя дата = 30/12/2000 моя дата + 10 дней = 09/01/2001 моя дата - 12 дней = 29/12/2000 |
Примечание:
|
Нет функции DecDay. Вместо этого, используйте IncDay с отрицательным приращением. |