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

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

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

  Реклама:

 

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

Google  
 
Описание
Функция 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook