Функція GetSystemTicks

Повертає число системних тактів, що надається операційною системою. Цю функцію можна використовувати для оптимізації деяких процесів.

Синтаксис:

GetSystemTicks()

Значення, що повертається:

Long

Коди помилок:

5 Неправильний виклик процедури

Приклад:

Sub ExampleWait

Dim lTick As Long

    lTick = GetSystemTicks()

    Wait 2000

    lTick = (GetSystemTicks() - lTick)

    MsgBox "" & lTick & " тактів" ,0,"тривала пауза"

End Sub