rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
      

 Beiträge: 2788 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 21. Jan. 2013 13:45 <-- editieren / zitieren --> Unities abgeben:          Nur für Bud87
Hallo Die timer-Funktion wirft dir die Zeit aus. Gibt sicher schönere Meßmethoden, aber so auf die Schnelle probier mal: Code:
Dim oStart As Single oStart = Timer' Hier deinen Code rein Dim oEnd As Single oEnd = Timer Dim oTimespan As Single oTimespan = oEnd - oStart MsgBox ("Laufzeit: " & Format(oTimespan * 1000, "####,#.0") & "ms")
EDIT: Code verändert, da der erste nicht in iLogic lief.
------------------ MfG Ralf  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |