VBA: La macro de un cronómetro en Excel.

Hace bastante tiempo tenía ganas de exponer este sencillo uso del método OnTime (que ya vimos en el pasado ver OnTime). Recientemente un usuario me preguntaba sobre un modelo similar y recordé que lo tenía pendiente...
En el día de hoy aplicaremos este método en la construcción de un sencillo cronómetro, con un botón de Inicio y otro de Paro. Con la combinación de cuatro procedimientos (muy cortos), basados en el método OnTime, conseguiremos iniciar un cronómetro por segundos. Veamos en la imagen su funcionamiento:

Vemos dos botones a los que he llamado 'Lanzar contador' y 'Parar contador', a los cuales he asociado los procedimientos Sub 'InicioContador' y 'ParaContador' respectivamente, y que veremos a continuación.

En un módulo del Editor de VBA añadiremos las líneas de nuestra macro.

Option Explicit
Dim SegundoSiguiente As Date, ComienzaContador As Date

Sub ParaReloj()
    On Error Resume Next
    'con OnTime programamos la ejecución de un procedimiento en un momento concreto
    'en concreto, al parar desactivamos el evento Ontime
    Application.OnTime SegundoSiguiente, "ActualizaReloj", , False
End Sub

Sub ActualizaReloj()
    'Ponemos el tiempo transcurrido en la celda C2
    Worksheets("Tiempo").Range("C2").Value = Now - Worksheets("Tiempo").Range("A2").Value
    'Lanzar el siguiente evento 1 segundo después (total seg dia = 86.400 = 60seg x 60min x 24hrs)
    SegundoSiguiente = Now + (1 / 86400)
    
    'Programa la ejecución de un procedimiento a una hora especificada,
    'ya sea a una hora específica o después del transcurso de un período de tiempo específico
    'expresión.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
    Application.OnTime SegundoSiguiente, "ActualizaReloj"
End Sub

Sub InicioContador()
    'llamamos al procedimiento ActualizaReloj, es decir, comenzamos la cuenta de segundos...
    ActualizaReloj
    ComienzaContador = Now
    'con FormatDateTime y vbLongTime damos formato de fecha según configuración equipo
    Worksheets("Tiempo").Range("A2").Value = FormatDateTime(ComienzaContador, vbLongTime)
    'limpiamos la celda B2
    Worksheets("Tiempo").Range("B2").ClearContents
End Sub

Sub ParaContador()
    'detenemos el proceso ActualizaReloj, llamando al procedimiento ParaReloj
    ParaReloj
    'calculamos el tiempo transcurrido una vez parado el tiempo.
    
    'con FormatDateTime y vbLongTime damos formato de fecha según configuración equipo
    Worksheets("Tiempo").Range("B2").Value = FormatDateTime(Now(), vbLongTime)
    Worksheets("Tiempo").Range("C2").Value = _
    FormatDateTime(Worksheets("Tiempo").Range("B2") - Worksheets("Tiempo").Range("A2"), vbLongTime)
End Sub

Como se puede observar los procedimientos Sub 'ActualizaReloj' y 'ParaReloj' son los encargados de incrementar el temporizador (el cronómetro) de segundo en segundo y de pararlo. El resto de procedimientos se encargan principalmente de asignar formatos...