GetSystemTicks Function

Liveras la nombron da sistemaj tiktakoj liveritaj de la sistemo. Oni povas uzi ĉi tiun funkcion por optimumigi specifajn procedurojn.

Sintakso:


GetSystemTicks()

Liverota valoro:

Long

Error codes:

5 Nevalida procedurvoko

Ekzemplo:


Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    MsgBox "" & lTick & " Ticks" ,0,"La paŭzo daŭris"
End Sub

Bonvolu subteni nin!