Active JavaScript en el navegador para mostrar las páginas de ayuda de LibreOfficeDev.

Función GetSystemTicks

Devuelve el número de ticks del sistema que proporciona el sistema operativo. Esta función puede utilizarse para optimizar algunos procesos.

Sintaxis:


GetSystemTicks()

Valor de retorno:

Long

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:


Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    MsgBox "" &  lTick & " Ticks" ,0,"La pausa ha durado"
End Sub