LibreOffice 24.8 Help
Geeft de het aantal systeemtikken terug die door het besturingssysteem opgegeven worden. Deze functie kan worden gebruikt om bepaalde processen te optimaliseren.
GetSystemTicks()
Long
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTik & " tikken" ,0,"De pauze duurde :"
End Sub