VBA Zeitmessen

Forumthread: VBA Zeitmessen

VBA Zeitmessen

07.07.2008 19:06:00

ChilloutFuerst

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Zeitmessen

07.07.2008 19:14:00

ransi
AW: VBA Zeitmessen

07.07.2008 19:18:11

Reinhard
AW: VBA Zeitmessen

07.07.2008 19:33:00

Hajo_Zi

AW: VBA Zeitmessen

07.07.2008 19:14:00

ransi

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

AW: VBA Zeitmessen

07.07.2008 19:18:11

Reinhard

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

AW: VBA Zeitmessen

07.07.2008 19:33:00

Hajo_Zi

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

Forumthread: VBA Zeitmessen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread