Облака / 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.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Что значит Paramstr
   Категория: Приложение
  Определение размера каталога
   Категория: Файловая система
  Undo в memo
   Категория: Компоненты
  Округление целого числа до 5
   Категория: Математика
  Замена подстроки в строке
   Категория: Текст и строки
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Изменить пароль для Paradox
   Категория: Базы данных
  Упаковка таблиц в BDE
   Категория: Базы данных

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

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 IncMonth
function IncMonth ( const StartDate : TDateTime {; NumberOfMonths : Integer = 1} ) : TDateTime;
Функция (Unit SysUtils)
Увеличивает TDateTime переменную на некоторое число месяцев
Описание:
Функция IncMonth возвращает значение TDateTime, которое на NumberOfMonths больше, чем переданное значение StartDate.

Элемент времени значения StartDate передаётся неизменным в результат.

Значение года увеличивается соответственно.

Значение приращения является произвольным (по умолчанию 1).

После приращения месяца, если значение дня слишком велико для полученного месяца/года, то оно уменьшается до самого высокого значения полученного месяца/года.
Пример кода: Добавляем значения к дате

var myDate : TDateTime; begin myDate := StrToDate('31/01/2000'); // Конец января в високосном годе ShowMessage('myDate = '+DateToStr(myDate)); // Приращение на 1 (значение по умолчанию) // 31-е января 2000 ==> 31-е февраля 2000 (неправильно) ==> 29-е февраля 2000 myDate := IncMonth(myDate); ShowMessage('myDate + 1 month = '+DateToStr(myDate)); // Приращиваем на 12 месяцев // 29-е февраля 2000 ==> 29-е февраля 2000 (неправильно) ==> 28-е февраля 2001 myDate := IncMonth(myDate, 12); // Приращение на 12 месяцев ShowMessage('myDate + 12 months = '+DateToStr(myDate)); end;

Результат:
myDate = 31/01/2000
myDate + 1 months = 29/02/2000
myDate + 12 months = 28/02/2001
Примечание:
Функции DecMonth нет.

Вместо этого, используйте IncMinute с отрицательным приращением.

  << Вернуться