Helpo de LibreOfficeDev 25.8
Liveras la nombron da sistemaj tiktakoj liveritaj de la sistemo. Oni povas uzi ĉi tiun funkcion por optimumigi specifajn procedurojn.
GetSystemTicks()
Long
Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    MsgBox "" & lTick & " Ticks" ,0,"La paŭzo daŭris"
End Sub