DateTime.Ticks

Синтаксис

Ticks: Integer;

Описание

Свойство Ticks возвращает количество миллисекунд, прошедших с момента запуска операционной системы.

Комментарии

Возвращаемое значение ограничено максимальным доступным значением для типа данных Integer, то есть - 2147483647. Это значение соответствует, примерно, 24 дням, 20 часам, 31 минуте и 23 секундам. При превышении указанного периода значение свойства Ticks будет сброшено и отсчет будет вестись с нуля.

Если предполагается работа операционной системы больше указанного периода, то рекомендуется использовать свойство Ticks64.

Пример

Sub UserProc;
Var
    i, j, Start, Stop, Temp: Integer;
Begin
    Start := DateTime.Ticks;
    For i := 1 To 300 Do
        For j := 1 To 300 Do
            Temp := Temp + i + j;
        End For;
    End For;
    Stop := DateTime.Ticks;
    Temp := Stop - Start;
    Debug.WriteLine("Время, затраченое на выполнение циклов: " + (Temp / 1000).ToString + " сек.");
End Sub UserProc;

После выполнения примера в консоль будет выведено значение времени, затраченное на выполнение циклов.

См. также:

DateTime