Funci贸 GetSystemTicks

Torna el n煤mero de ticks del sistema proporcionat pel sistema operatiu. Podeu utilitzar aquesta funci贸 per optimitzar determinats processos.

Sintaxi:


GetSystemTicks()

Valor de retorn:

Long

Codis d'error

5 La crida al procediment no 茅s v脿lida

Exemple:


Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    MsgBox "" & lTick & " Ticks" ,0,"La pausa ha durat"
End Sub

Ens cal la vostra ajuda!