sumar - vba excel 2016 pdf español

¿Cómo obtener un DateDiff-Value en milisegundos en VBA(Excel)?

Question

Necesito calcular la diferencia entre dos marcas de tiempo en milisegundos. Desafortunadamente, la función DateDiff de VBA no ofrece esta precisión. ¿Hay alguna solución?

Answer 1

Si solo necesita tiempo transcurrido en Centisegundos, entonces no necesita la API TickCount. Solo puede usar el método VBA.Timer que está presente en todos los productos de Office.

Public Sub TestHarness()
Dim fTimeStart As Single
Dim fTimeEnd As Single
fTimeStart = Timer
SomeProcedure
fTimeEnd = Timer
Debug.Print Format$((fTimeEnd - fTimeStart) * 100!, "0.00 "" Centiseconds Elapsed""")
End Sub
Public Sub SomeProcedure()
Dim i As Long, r As Double
For i = 0& To 10000000
r = Rnd
Next
End Sub

Answer 2

GetTickCount y el Contador de rendimiento son necesarios si quieres usar micro segundos. Para millisenconds puedes usar algo como esto ...

''at the bigining of the module
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
''In the Function where you need find diff
Dim sSysTime As SYSTEMTIME
Dim iStartSec As Long, iCurrentSec As Long
GetLocalTime sSysTime
iStartSec = CLng(sSysTime.wSecond) * 1000 + sSysTime.wMilliseconds
''do your stuff spending few milliseconds
GetLocalTime sSysTime '' get the new time
iCurrentSec=CLng(sSysTime.wSecond) * 1000 + sSysTime.wMilliseconds
''Different between iStartSec and iCurrentSec will give you diff in MilliSecs

Answer 3

Puede usar el método descrito aquí de la siguiente manera:

Cree un nuevo módulo de clase llamado StopWatch Coloque el siguiente código en el módulo de clase StopWatch :

Private mlngStart As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub StartTimer()
mlngStart = GetTickCount
End Sub
Public Function EndTimer() As Long
EndTimer = (GetTickCount - mlngStart)
End Function

Usas el código de la siguiente manera:

Dim sw as StopWatch
Set sw = New StopWatch
sw.StartTimer
'' Do whatever you want to time here
Debug.Print "That took: " & sw.EndTimer & "milliseconds"

Otros métodos describen el uso de la función del temporizador VBA, pero esto solo es preciso a una centésima de segundo (centisegundo).

Answer 4

También puede usar la fórmula =NOW() calcilada en la celda:

Dim ws As Worksheet
Set ws = Sheet1
ws.Range("a1").formula = "=now()"
ws.Range("a1").numberFormat = "dd/mm/yyyy h:mm:ss.000"
Application.Wait Now() + TimeSerial(0, 0, 1)
ws.Range("a2").formula = "=now()"
ws.Range("a2").numberFormat = "dd/mm/yyyy h:mm:ss.000"
ws.Range("a3").formula = "=a2-a1"
ws.Range("a3").numberFormat = "h:mm:ss.000"
var diff as double
diff = ws.Range("a3")

Answer 5

Además del Método descrito por AdamRalph ( GetTickCount() ), puedes hacer esto:

• Uso de las QueryPerformanceCounter() la QueryPerformanceCounter() y QueryPerformanceFrequency()
  ¿Cómo se prueba el tiempo de ejecución del código VBA?
• o, para entornos sin acceso a la API de Win32 (como VBScript), esto:
  http://ccrp.mvps.org/ (consulte la sección de descarga de los objetos COM instalables de "Temporizador de alto rendimiento". Son gratuitos).