Enable JavaScript in the browser to display LibreOfficeDev Help pages.

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