Pomoc za LibreOffice 24.8
Returns the number of system ticks provided by the operating system. You can use this function to optimize certain processes.
GetSystemTicks()
Long
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub