Realizando “benchmark” en el rendimiento del código en VBA – Pte 2

Estándar

Tal como mencione en la parte anterior de este artículo, comparto con ustedes la clase desarrolla para medir el tiempo que toma una macro, loop, rutina o función en ejecutarse. Dicha clase tiene como nombre: “clsTimer”. La cual nos permite obtener el tiempo consumido en minutos, segundos y milisegundos

Un ejemplo de cómo usar dicha clase seria:

Sub test()
Dim oTimer As clsTimer
Dim i As Long
Dim contador As Long
Set oTimer = New clsTimer
oTimer.StartTimer
For i = 1 To 400000000
contador = contador + 1
Next
MsgBox oTimer.GetElapsedTime(Seconds) & " segundos!", vbInformation
End Sub

Comparto el enlace con el ejemplo y el módulo de clase para que puedan usarlo en sus propios proyectos. Ejemplo

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s