Справочник функций и процедур Delphi: IncDay

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

IncDay
Функция
Приращивает переменную типа TDateTime на + или - число дней DateUtils unit
  function IncDay ( const StartDateTime : TDateTime {; NumberOfDays : Integer = 1} ) : TDateTime;

Delphi Sources

Описание
Функция IncDay возвращает значение TDateTime, которое на NumberOfDays дней больше, чем переданное значение StartDateTime.

Год и значения месяца увеличиваются соответствующе.

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

Вместо этого, используйте IncDay с отрицательным приращением.
Похожие команды
IncMinute  Приращивает переменную типа TDateTime на + или - число минут.

IncMonth  Увеличивает TDateTime переменную на некоторое число месяцев

IncYear  Увеличивает TDateTime переменную на количество лет

IncSecond  Приращивает переменную типа TDateTime на + или - число секунд

IncMillisecond  Приращивает переменную типа TDateTime на + или - число миллисекунд

 
Пример кода : Простой пример приращения и декремента
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
 


Последние добавленные на сайт исходники

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

 

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте