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