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