Compartir a través de


Función Timer

Devuelve un valor Single que representa el número de segundos transcurridos desde la medianoche.

Sintaxis

Timer

Comentarios

En Windows, la función Timer devuelve partes fraccionarias de un segundo. En Macintosh, la resolución del temporizador es un segundo.

Ejemplo:

En este ejemplo, se usa la función Timer para pausar la aplicación. En el ejemplo también se usa DoEvents para producir a otros procesos durante la pausa.

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.