GetSystemTicks Function

オペレーティングシステムから現在の実行時間 (チック数) を取得して返します。この関数は、プロセスの最適化をする際などに利用できます。

構文:

GetSystemTicks()

戻り値:

ロング整数

Error codes:

5 無効なプロシージャー呼び出しです

例:

Sub ExampleWait

Dim lTick As Long

    lTick = GetSystemTicks()

    Wait 2000

    lTick = (GetSystemTicks() - lTick)

    MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"

End Sub