Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

VBA Zeitmessen

Betrifft: VBA Zeitmessen von: ChilloutFuerst
Geschrieben am: 07.07.2008 17:06:50

Hallo
wie kann ich innerhalb eines VBA Projecs die Zeit möglichst genau ausgeben die zB eine Function benötigt??

Schonmal Vielen Dank

  

Betrifft: AW: VBA Zeitmessen von: ransi
Geschrieben am: 07.07.2008 17:14:14

HAllo

Bisher hat die Genauigkeit bei mir immer noch gereicht:

Option Explicit


Public Sub test()
Dim T As Double
Dim L As Long
T = Timer
For L = 1 To 100000000
Next
MsgBox Timer - T
End Sub


ransi


  

Betrifft: AW: VBA Zeitmessen von: Reinhard
Geschrieben am: 07.07.2008 17:18:11

Hi Fuerst,

vielleicht so:

Sub test()
Static T As Single
Dim n
Const z = 99999999#
T = Timer
For n = 1 To z
Next n
MsgBox "Funktion abc braucht " & (Timer - T) / z * 1000 & " Millisekunden"
End Sub
'
Function abc()
Dim n
For n = 1 To 100000000
Next n
End Function


Gruß
Reinhard


  

Betrifft: AW: VBA Zeitmessen von: Hajo_Zi
Geschrieben am: 07.07.2008 17:33:48

Hallo Nick,


Option Explicit

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
' https://www.herber.de/forum/ _
archiv/936to940/t938376.htm


Function Dummy1() As Single
    Dim lngStartTime As Single
    lngStartTime = timeGetTime
    Dim x As Long
    For x = 1 To 200000
    Next
    Dummy1 = timeGetTime - lngStartTime
End Function



GrußformelHomepage