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
IncMillisecond
Функция
Приращивает переменную типа TDateTime на + или - число миллисекунд DateUtils unit
  function IncMillisecond ( const StartDateTime : TDateTime {; NumberOfMilliSeconds : Integer = 1} ) : TDateTime;
Описание
Функция IncMillisecond возвращает значение TDateTime, которое на NumberOfMilliSeconds миллисекунд больше, чем переданное значение StartDateTime.

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

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

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

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

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

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

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

 
Пример кода : Простой пример приращения и декремента
var
  myDate : TDateTime;
begin
  // Устанавливаем нашу дату на начало 2006
  myDate := EncodeDateTime(2006, 1, 1, 0, 0, 0, 0);
  ShowMessage('моя дата = '+DateTimeToStr(myDate));

  // Добавить 5000 миллисекунд к этой дате
  myDate := IncMillisecond(myDate, 5000);
  ShowMessage('моя дата + 5000 миллисекунд= '+DateTimeToStr(myDate));

  // Вычесть 2000 миллисекунд из этой даты
  myDate := IncMillisecond(myDate, -2000);
  ShowMessage('моя дата - 2000 миллисекунд= '+DateTimeToStr(myDate));
end;
моя дата = 01/01/2006
моя дата= 01/01/2006 00:00:05
моя дата = 01/01/2006 00:00:03
 



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