GetSystemTicks Function

Vraca broj sistemskih krpelja koje operacijski sustav dodijeli. Možete koristiti ovu funkciju kako bi se optimizirali odredene procesi.

Sintaksa:

GetSystemTicks()

Vrati vrijednost:

Long

Error codes:

5 Invalid procedure call

Primjer:

Sub ExampleWait

Dim lTick As Long

    lTick = GetSystemTicks()

    Wait 2000

    lTick = (GetSystemTicks() - lTick)

    MsgBox "" & lTick & " Ticks" ,0,"Pauza je trajala"

End Sub