Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Zeitmessen

VBA Zeitmessen
07.07.2008 17: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
Anzeige
AW: VBA Zeitmessen
07.07.2008 17: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

Anzeige
AW: VBA Zeitmessen
07.07.2008 17: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 17: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



Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige