IBM Lotus Symphony
|
Возвращает число системных тактов, предоставляемое операционной системой. Эта функция позволяет оптимизировать выполнение некоторых процессов.
GetSystemTicks()
Long
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " тактов" ,0,"Пауза длилась"
End Sub