exakte dauer einer Prozedur

[FIAzubi]

Hallo

habe mal wieder ein Problem....--is ja nicht das erste--



Brauche die exakte Dauer einer Prozedur. Hab auch schon eine Lösung, leider ist die Angabe nicht optimal, da sie nur in Sekunden ist und nicht wirklich genau arbeitet.
Der Wert ist auch abhängig davon, ob die Prozedur am Ende oder am Anfang einer Sekunde gestartet wurde......

Hatt jemand für mich eine bessere Lösung für mein Problem?
Bin für jeden Ratschlag dankbar...

meine Lösung:

Dim f As Date

f = Now
'...........Pozedur
MsgBox (DateDiff("s", f, Now))

Mfg
FIAzubi

 

[Dario Linsky]

Mit der API-Funktion GetTickCount kannst du die Millisekunden seit dem letzten Start von Windows ermitteln. Das einmal am Anfang der Funktion und einmal am Ende aufgerufen liefert die den Start- und Endpunkt, mit denen du die Ausführungsdauer in Millisekunden berechnen kannst.

Ich hoffe, das ist genau genug für dich. Mehr zu der Funktion findest du in der MSDN oder bei Google.