Te puede servir y edu no hables de lo que no sabes
Bueno, pon un botón y un label y pega este código, podrias hasta tomar milisegundos si lo multiplicas abajo no por 100 sino por 1000, eso si si necesitas mucha exactitud, lo mejor es que lo hagas en un programa de más bajo nivel, tal vez C o si puedes assembly, pues Visual es muy lento para algo tan rápido, es según la confianza que necesites, por ejemplo para un proceso que tengo maso me trabaja a 25 kHz, la forma de ponerlo a correr es asi como lo puse abajo, y lo detengo no por tiempo sino por numero de datos, pero a veces se pierde, pero estoy en esas, un timer como tal no te detecta eso, pero asi es una forma que encontré y me parece bastante útil
Edu, no ofendas si no sabes de qeu hablas, si para ti un microsegundo no es nada en un proceso para otros procesos si, si es un proceso quimico un segundo es despreciable, pero si es electricidad, un milisegundo es una eternidad, ya toca hablar incluso de nanosegundos, te cuento para que no la embarres tan feo de nuevo, tengo un proceso de un control de un inversor de potencia por ZAD (dinámica cero del error), en este estabamos preocupados por un retardo de tiempo que superaba por poco los 2 microsegundos y tuvimos que voltiar mucho rato para rebajarlo a menos de 1 micro y asi tener aprox 300 nanosegundos para unos calculos, pues para lo que necesitamos no nos podemos pasar de 1,3 microsegundos de tiempo muerto
Dim tiempo1
Dim hora
Private Sub Command1_Click()
Do
t = Timer
th = Fix(t / 3600) ' obtengo las horas
t = t - th * 3600
tm = Fix(t / 60) ' obtengo los minutos
t = t - tm * 60
ts = Fix(t) ' obtengo los segundos
t = t - ts
tc = t * 100
' finalmente muestro el formato HH:mm
resultado = Format(th, "0#") & ":" & Format(tm, "0#") & ":" & Format(ts, "00") & ":" & Format(tc, "00")
Label1 = resultado
DoEvents
t = Timer
Loop Until ((t - tiempo1) >= 10)
End Sub
Private Sub Form_Load()
tiempo1 = Timer
hora = Time
End Sub
