Enable JavaScript in the browser to display LibreOfficeDev Help pages.

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