Helpo de LibreOffice 24.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