Visual Basic.NET - Función Now

 
Vista:
Imágen de perfil de Luis
Val: 36
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Función Now

Publicado por Luis (12 intervenciones) el 16/02/2021 20:38:09
Estoy tratando de medir el tiempo que tarda en ejecutarse varios trozos de código, y para ello inserto la función Now allí donde quiero medirlo, pero no me vale porque dichos procesos se ejecutan en menos de un segundo y en consecuencia obtengo 4 tiempos iguales
¿Hay alguna forma de medir milisegundos?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Función Now

Publicado por Phil Rob (1546 intervenciones) el 17/02/2021 08:43:23
Hola,

Pienso que este es un buen método :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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
 
    ' ... ... ...

Que tenga un buen día ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Luis
Val: 36
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Función Now

Publicado por Luis (12 intervenciones) el 17/02/2021 10:36:10
Muchas gracias Phil

Probaré con tu código.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar