GetSystemTicks Function
オペレーティングシステムから現在の実行時間 (チック数) を取得して返します。この関数は、プロセスの最適化をする際などに利用できます。
構文:
GetSystemTicks()
戻り値:
ロング整数
例:
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub