Cómo obtener los milisegundos de tiempo usando VBA. Solo puedes obtener segundos con el tiempo.

La función ahora o Temporizador que viene con el sistema solo puede obtener segundos. Hay una API relacionada. Puede usar timeGetTime en la API de Windows winmm.dll para obtener la cantidad de milisegundos. Este valor es la cantidad de milisegundos desde el inicio hasta el momento.

Función de declaración privada timeGetTime Lib "winmm.dll" () mientras

Private Sub btnTest_Click()

Dim StartMS mientras

Atenuar EndMS As Long

Atenuar MS As Long

StartMS = timeGetTime() 'Iniciar milisegundos

Mientras que timeGetTime lt StartMS 200 'Hacer un bucle y esperar

p>

DoEvents 'Transfiere el control y deja que el sistema operativo maneje otros eventos

Wend

EndMS = timeGetTime() 'Fin de milisegundos

MS = EndMS - StartMS 'Calcula la diferencia de milisegundos entre los dos

MsgBox "Millisegundos:" amp; MS

End Sub

Mientras que timeGetTime lt; esperar

DoEvents 'Transfiere el control para permitir que el sistema operativo maneje otros eventos

Wend

Los administradores del sitio web pueden utilizar las tres líneas de código anteriores Reemplazar su propio código para completar el proceso de cálculo real.