Toma de Tiempos con milisegundos
Hola como estas... Necesito tomar los tiempos en milisegundos o sea hh:mm:ss:mmm pero no se como hacerlo ya que time me lo da hh:mm:ss, agradecería que me envíes un ejemplo de como se hace para tomar eso del reloj de la maquina.
Desde ya muchas gracias
Desde ya muchas gracias
1 respuesta
Respuesta de orande
1
Creo que esto te puede servir:
Dim Aux As String
Aux = Timer
If InStrRev(Timer, ",") <> 0 Then
Aux = Mid(Timer, InStrRev(Timer, ",") + 1)
Else
Aux = "0"
End If
If Len(Aux) = 1 Then Aux = Aux & "0"
List1.AddItem Time & ":" & Aux
Lo he puesto para probar en un Timer (Interval = 1) con un botón para pararlo. En un listbox he comprobado los valores y parece correcto.
Ya me dices si te vale.
Dim Aux As String
Aux = Timer
If InStrRev(Timer, ",") <> 0 Then
Aux = Mid(Timer, InStrRev(Timer, ",") + 1)
Else
Aux = "0"
End If
If Len(Aux) = 1 Then Aux = Aux & "0"
List1.AddItem Time & ":" & Aux
Lo he puesto para probar en un Timer (Interval = 1) con un botón para pararlo. En un listbox he comprobado los valores y parece correcto.
Ya me dices si te vale.
