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
 



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