En VBA (Visual Basic for Applications), la función Timer se utiliza para obtener la cantidad de segundos que han transcurrido desde la medianoche (00:00:00) del día actual. Es útil para medir el tiempo que tarda en ejecutarse un proceso o código específico.

Ejemplo

Sub MedirTiempoDeEjecucion()
    Dim tiempoInicio As Single
    Dim tiempoFinal As Single
    Dim tiempoTotal As Single
    
    ' Registra el tiempo de inicio
    tiempoInicio = Timer
    
    ' Aquí iría el código cuyo tiempo de ejecución deseas medir
    ...
    
    ' Registra el tiempo de finalización
    tiempoFinal = Timer
    
    ' Calcula el tiempo total transcurrido
    tiempoTotal = tiempoFinal tiempoInicio
    
    ' Muestra el tiempo total en segundos
    MsgBox "El tiempo de ejecución es " & tiempoTotal & " segundos."
End Sub

En este ejemplo MedirTiempoDeEjecucion, registramos el tiempo de inicio antes de ejecutar el bloque de código que queremos medir. Luego, ejecutamos dicho bloque de código (que es donde iría tu propio código). Finalmente, registramos el tiempo de finalización y calculamos la diferencia para obtener el tiempo total que ha tomado la ejecución.

Consideraciones

La función Timer tiene una precisión de milisegundos aunque devuelve un valor en segundos, el cual puede tener decimales para reflejar milisegundos. Por ejemplo, si el valor devuelto es 12345.678, esto significa que han pasado 12,345 segundos y 678 milisegundos desde la medianoche.

Recuerda que el valor devuelto por Timer se reinicia al llegar a los 86,400 segundos (número de segundos en un día), lo cual no debería ser un problema a menos que tu código se ejecute durante un período de tiempo extremadamente largo. Por supuesto, dependiendo de lo que estés midiendo, es posible que necesites tener en cuenta esta limitación para evitar errores de cálculo en caso de una ejecución nocturna.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto