Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
  Загрузка файлов в THTMLViewer и TFrameBrowser
   Категория: Интернет и Сети
  Что значит Paramstr
   Категория: Приложение
  Округление времени до 5 мин
   Категория: Базы данных
  Удалить свой же exe-шник
   Категория: Приложение
  Как произвести поиск файлов во вложенных папках
   Категория: Файловая система
  Создать таблицу ABS (AbsoluteDB)
   Категория: Базы данных
  Как получить код HTM страницы зная ее URL
   Категория: Интернет и Сети

Delphi - Справочник: IncDay

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 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 с отрицательным приращением.

  << Вернуться