Подписаться на RSS рассылку
Главная » Статьи по Delphi » Дата и время » Вычислить затраченное время на какую-либо операцию

Вычислить затраченное время на какую-либо операцию

Автор: Борисов Сергей

var
  _Begin, _End: TTimeStamp;
  Total: LongWord;
  x,i:integer;
begin
  {запоминается момент начала операции}
  _Begin := DateTimeToTimeStamp(Now);

  {Выполняем операции}
  For i:=0 to 9999999 do x:=Round(x*50 / 50);

  {запоминается момент окончания операции}
  _End := DateTimeToTimeStamp(Now);
  {Вычисляем затраченное время}
  Total := _End.Time - _Begin.Time;

  ShowMessage(IntToStr(Total));
end;


Результат выводится в милисекундах.

Просмотров: 4590

Обсудить на форуме

0   Спам
(04.05.2012)
2. Алексей
Да всё очень понятно

0   Спам
(01.03.2009)
1. Май
Спасибо за подсказку.


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта