Activez JavaScript dans le navigateur pour afficher les pages d'aide de LibreOfficeDev

Fonction GetSystemTicks

Renvoie le nombre de cycles système fournis par le système d'exploitation. Vous pouvez utiliser cette fonction pour optimiser certains processus.

Syntaxe :


GetSystemTicks()

Valeur de retour :

Long

Codes d'erreur :

5 appel de procédure incorrect

Exemple :


Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    MsgBox "" & lTick & " Cycles" ,0,"La pause a duré"
End Sub