Как получить текущее время в миллисекундах?
Я знаю , что использовать сейчас , но мне нужно получить в миллисекундах.
Возвращает количество миллисекунд между заданным значением TDateTime и началом того же дня.
Если вы хотите миллисекунды из другого периода времени, есть и другие подобные функции , как: MilliSecondOfTheYear , MilliSecondsBetween и т.д.
TDateTime это double где 1 день. Константа SecsPerDay объявлена в SysUtils представляет количество секунд в день, так , чтобы получить сейчас в миллисекундах:
DecodeDateTime примет TDateTime и быть в состоянии разделить его на год, месяц, день, час минуты секунду и миллисекунду.
Если у вас есть отдельные номера, вы можете использовать математику, чтобы вычислить текущее число миллисекунд после полуночи.
Как отобразить миллисекунды в данном коде
В глобальной переменной Var пишу:
В самой процедуре пишу:
И у меня результат выводиться в 0:00:00, то есть часы, минуты, секунды, но нет миллисекунд. Как их добавить?
Точное время измерения выполнения операции в Delphi может пригодится во многих случаях, начиная от самого простого — показать пользователю время, затраченное на выполнение длительной операции (здесь, кстати, высокая точность нужна редко) и, заканчивая, ситуациями, когда в целях оптимизации программы нам необходимо выявить в программе наиболее «узкие» места в которых программа «застревает» на длительный промежуток времени. В основном, последняя ситуация характерна при разработке программ, использующих и обрабатывающих большие массивы данных, когда скорость выполнения операций выходит, если не на первое, то на одно из первых мест в требованиях к приложению.
Есть несколько способов узнать время выполнения операций в Delphi и все эти способы, в принципе, рассмотрены как в Сети, так и моем блоге. Поэтому представленная ниже статья — это лишь объединение всех возможных способов измерения времени в Delphi и опытный Delphi-программист здесь врядли встретит что-то новое для себя.
Способ №1 — самый простой. Используем функцию Now()
Самый простейший и наименее точный способ измерить время, затраченное на выполнение какой-либо операции в Delphi — воспользоваться функцией Now() из модуля System.SysUtils.
Исходный код может выглядеть, например, так:
Вполне вероятно, что у вас может возникнуть резонный вопрос: почему я использовал в примере SecondsBetween(), а не, например, MilliSecondsBetween() для большей точности? Сделал я это, опираясь исключительно, на описание функции Now() в официальной справке по Delphi, которая гласит следующее: «Несмотря на то, что в TDateTime могут передаваться миллисекунды, Now() имеет точность до ближайшей секунды«. То есть, если использовать Now(), то определять интервал времени с точностью до миллисекунд — не имеет смысла.
Способ №2 — используем Windows API. Функция GetTickCount().
Функция GetTickCount() не имеет параметров и возвращает количество миллисекунд, прошедших с момента запуска системы. Судя по официальной справке Microsoft, р азрешение функции GetTickCount() ограничено разрешением системного таймера, которое обычно находится в диапазоне от 10 до 16 миллисекунд. При этом, счётчик миллисекунд будет обнулен, если система запущена более 49,7 дней.
В принципе, пример использования этой функции похож на предыдущий:
Так, используя функцию GetTickCount() мы можем засечь время выполнения операции в Delphi с точностью до миллисекунды. Если и такая точность Вам не подходит и необходимо измерить интервал времени ещё точнее, то следующий способ — для вас.
Способ №3 — продолжаем использовать Windows API. Функции QueryPerformanceCounter и QueryPerformanceFrequency
Об этих функциях я рассказывал давным-давно, но, повторюсь ещё раз.
QueryPerformanceCounter — извлекает текущее значение счетчика производительности, которое представляет собой метку времени с высоким разрешением ( TStopwatch использует функциональные возможности, зависящие от операционной системы, для получения доступа к таймерам с высоким разрешением, если они доступны. Если таймеры с высоким разрешением в ОС недоступны, то используются обычные таймеры.
Несмотря на то, что TStopwatch — это запись, для корректного использования всё же необходимо вызывать метод Create или StartNew.
Описание TStopwatch следующее:
- Свойство IsHighResolution указывает, основан ли таймер на счетчике производительности с высоким разрешением.
- Метод Start() начинает измерять прошедшее время.
- Метод Stop() останавливает измерение прошедшего времени.
- Свойство ElapsedMilliseconds получает общее истекшее время в миллисекундах.
- Свойство Elapsed получает истекшее время в виде TTimeSpan.
Воспользоваться возможностями TStopwatch также достаточно просто, например, так:
В представленном выше примере мы воспользовались TStopwatch и вывели количество минут (с дробной частью), пошедших на выполнение какой-то операции. В целом же, используя возможность TStopwatch.Elapsed можно выводить любые значения, ограниченные лишь возможностями TTimeSpan (см. справку).
Подведем итог
Итак, чтобы измерить точное время выполнения операции в Delphi, необходимо, прежде всего определиться с тем какая точность Вас устроит? Если достаточно, чтобы интервал времени определялся с точностью до секунды, то достаточно воспользоваться обычной, давно известной функцией Now(). Да, точность самая низкая, но, зато — просто.
Если ваше требование к точности измерения времени ограничивается миллисекундой — используйте GetTickCount(): просто, достаточно надежно (только, если вы не планируете измерять интервал времени больше 49,7 дней).