Función Timer

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

Icono de nota

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,"Segundos desde medianoche"
    lMin = lSec / 60
    lSec = lSec Mod 60
    lHour = lMin / 60
    lMin = lMin Mod 60
    MsgBox Right("00" & lHora , 2) & ":"&  Right("00" & lMin , 2) & ":" & Right("00" & lSeg , 2) ,0,"La hora es"
End Sub

¡Necesitamos su ayuda!