Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
IncSecond
Функция
Приращивает переменную типа TDateTime на + или - число секунд DateUtils unit
  function IncSecond ( const StartDateTime : TDateTime {; NumberOfSeconds : Integer = 1} ) : TDateTime;
Описание
Функция IncSecond возвращает значение TDateTime, которое на NumberOfSeconds секунд больше, чем переданное значение StartDateTime.

Год, месяц, день и значения часа увеличиваются соответствующе. Значение приращения является произвольным (по умолчанию 1).
Примечания
Функции DecSecond нет.

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

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

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

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

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

 
Пример кода : Простой пример приращения и декремента
var
  myDate : TDateTime;
begin
  // Устанавливаем нашу дату как раз перед концом 2005 года
  myDate := EncodeDateTime(2005, 12, 31, 23, 59, 0, 0);
  ShowMessage('myDate = '+DateTimeToStr(myDate));

   // Добавляем 60 секунд к этой дате
  myDate := IncSecond(myDate, 60);
  ShowMessage('myDate + 100 seconds = '+DateTimeToStr(myDate));

  // Вычитаем 120 секунд из этой даты
  myDate := IncSecond(myDate, -120);
  ShowMessage('myDate -  120 seconds = '+DateTimeToStr(myDate));
end;
myDate = 31/12/2005 23:59:00
myDate = 01/01/2006
myDate = 31/12/2005 23:58:00
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия