Contenido

# Función Timer

Devuelve un valor que especifica el número de segundos que han transcurrido desde medianoche.

Antes de utilizar la función Timer es necesario que declare una variable y que le asigne el tipo de datos "Long", en caso contrario se devuelve un valor de fecha.

### Sintaxis:

      Timer

### Valor de retorno:

Fecha

### Ejemplo:

      Sub ExampleTimer
          Dim lSec As Long,lMin As Long,lHour As Long
          lSec = Timer
          MsgBox lSec, 0, "Seconds since midnight"
          lMin = Int(lSec / 60)
          lSec = lSec Mod 60
          lHour = Int(lMin / 60)
          lMin = lMin Mod 60
        MsgBox Format(lHour,"00") & ":"& Format(lMin,"00") & ":" & Format(lSec,"00"),  0, "The time is"
    End Sub

La función Timer mide el tiempo en segundos. Para medir el tiempo en milisegundos, utilice el servicio Timer que está disponible en la biblioteca ScriptForge.

Temas relacionados

ScriptForge.Timer service