En algunas ocasiones puede interesarnos cronometrar el tiempo de determinadas operaciones. Aunque bien entendido que puede hacerse de diversas formas y a determinar la cual mas precisa, os dejo una idea como siempre muy simple de averiguar cuando nos esta tardando cierta operación, ya sea dentro de un bucle, en petición a un procedimiento externo, en una consulta a SQL o cualquier otra transacción.

‘
‘ Simplificado y en VB9

‘Bucles para test del tiempo en ejecucion
Dim Bucles = Val(InputBox(«Numero de iteraciones»))
‘Poner en marcha el cronometro
Dim CronoIncial = System.DateTime.Now
‘Tarea a cronometrar
Dim numero = 0       ‘Variable para la simulacion

For x = 0 To Bucles
     numero += 1
     Text = numero.ToString
     Refresh()
 Next
‘para saber el tiempo empleado! .. restamos
MessageBox.Show(«Tiempo empleado : « + _
               (System.DateTime.Now – CronoIncial).ToString + _

                » s.», «Cronometro»)

…………..

‘

‘ En VB8 Podria lucir como sigue

        ‘Variable simulacion de calculos
        Dim numero As Integer = 0
        ‘Bucles para test del tiempo en ejecucion
        Dim Bucles As Integer = Val(InputBox(«Numero de iteraciones»))
        ‘Poner en marcha el cronometro
        Dim CronoIncial As DateTime = System.DateTime.Now
        ‘Tarea a cronometrar
        For x As Integer = 0 To Bucles
            numero += 1
            Label1.Text = numero.ToString
            Label1.Refresh()
        Next
        ‘Tomar el tiempo del cronometro al finalizar
        Dim CronoFinal As DateTime = System.DateTime.Now
        ‘Restar Fin de Inicio para saber el tiempo empleado!

        MessageBox.Show(«Tiempo empleado : « + (CronoFinal – CronoIncial).ToString + » s.», «Cronometro»

Saludos,
Pep Lluis,