Prozedurlaufzeit messen und in minuten ausgeben

Computer: Software & Programmierung Visual Basic
#1

Hallo Leute,

ich habe hier ein VBA Makro geschrieben und würde mir nun gerne die Laufzeit anzeigen lassen. Soweit komm ich noch zurecht denn ich habe mich bei folgendem Beispiel bedient:

http://www.tech-archive.net/Archive/German/microsoft…

In diesem Beispiel wird die Zeit der Prozedurabarbeitung gemessen und in Sekunden wiedergegeben.

Ich würde diesen Code prinzipiell ja verweden können, allerdings brauche ich die gemessene Zeit in Minuten, und nicht in Sekunden.

Wie muss ich denn den vorliegenden Code modifizieren um mir später (per MsgBox) die gemessene Zeit in Minuten anzeigen zu lassen?

Danke im Voraus

#2

Hallo,

um Sekunden in Minuten umzurechnen musst Du ja nur durch 60 teilen, das kann ja nicht die Frage sein.

Wenn Du das Ergebnis als Zeit anzeigen möchtest, also Stunden:Minuten:Sekunden, dann lass doch VB die Arbeit machen.

Von VBA habe ich keine Ahnung, deshalb ein Beispielcode in VB6. Der Kern ist DateAdd(), das funktioniert mit der selben Syntax auch in VBA.

Option Explicit
Dim tm As Double

Private Sub cmdStart\_Click()
 tm = Timer
End Sub

Private Sub cmdStopp\_Click()
 Dim s As Long
 Dim Zeit As Date
 Zeit = "00:00:00"
 s = Int(Timer - tm)
 Zeit = DateAdd("s", s, Zeit)
 lblErgebnis.Caption = Zeit
End Sub

Gruß, Rainer

#3

Hallo, Patrick!

ich habe hier ein VBA Makro geschrieben und würde mir nun
gerne die Laufzeit anzeigen lassen. Soweit komm ich noch
zurecht denn ich habe mich bei folgendem Beispiel bedient:

http://www.tech-archive.net/Archive/German/microsoft…

In diesem Beispiel wird die Zeit der Prozedurabarbeitung
gemessen und in Sekunden wiedergegeben.
Ich würde diesen Code prinzipiell ja verweden können,
allerdings brauche ich die gemessene Zeit in Minuten, und
nicht in Sekunden.

Schau Dir mal die Funktionen Format$ an. Oder dividiere die Ausgabe durch 60, wenn Du statt z. B. „2:30“ 2,5 als Ausgaben haben willst. Oder oder oder…

Gruß, Manfred