Visual Basic.NET - Función Now

Dim ahora

ahora = Now

Console.WriteLine(ahora)

'

' Código 1 a evaluar

'

'

Console.WriteLine(ahora)

'

' Código 2 a evaluar

'

'

Console.WriteLine(ahora)

'

'

' Código 3 a evaluar

'

'

Console.WriteLine(ahora)

Sub Main(args As String())

    Dim TiempoAnterior As DateTime

    Dim Duracion As TimeSpan

    TiempoAnterior = Now    ' Para mesurada siguiente

    'Proceso que bebe ser mesurar (ejemplo)

    For i As Integer = 0 To 100000

        Console.WriteLine(i)

    Next

    ' Calcular duracion en millisec

    Duracion = Now.Subtract(TiempoAnterior)

    TiempoAnterior = Now     ' Para mesurada siguiente

    Console.WriteLine("Duracion : " & Duracion.TotalSeconds)

    'Otro proceso que bebe ser mesurar

    ' ... ... ...

    ' Calcular duracion en millisec

    Duracion = Now.Subtract(TiempoAnterior)

    TiempoAnterior = Now     ' Para mesurada siguiente

    Console.WriteLine("Duracion : " & Duracion.TotalSeconds)

    'Otro proceso que bebe ser mesurar

    ' ... ... ...