Ajuda del LibreOffice 24.8
Torna el número de ticks del sistema proporcionat pel sistema operatiu. Podeu utilitzar esta funció per optimitzar determinats processos.
GetSystemTicks()
Long
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"La pausa ha durat"
End Sub