Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Вывод текста на канву Canvas
   Категория: Компоненты
  Компоненты TrackBar и ScrollBar
   Категория: Компоненты
  Компонент SpeedButton
   Категория: Компоненты
  Тpансляция ошибок в BDE
   Категория: Базы данных
  Перекодировка в DBASE
   Категория: Базы данных
  Как нарисовать календарь
   Категория: Текст и строки
  Удалить файл в Корзину
   Категория: Приложение
  Подсчет времени какого-либо события
   Категория: Математика
  Компонент HotKey
   Категория: Компоненты

Delphi - Справочник: IncMillisecond

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

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

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

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

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
Примечание:
Нет функции DecMillisecond.

Вместо этого, используйте IncMillisecond с отрицательным приращением.

  << Вернуться