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
 


Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика



Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки? Slurm подготовили для вас особенный продукт!





форум программистов


© Форум Delphi  |  Форум Pascal   |  Блог программистов   |  Исходники Delphi   |  Автор сайта  |  Ссылки   |  Английская версия