Timerecording
20.09.2002 18:41:56
Arne Dinges
folgende Aufgabe: Ich möchte bei einem VBA-Tool berechnen, wie lange deren Ausfürhung dauert.
Mein Ansatz:
'*********************************************
Dim durance As Date
durance = Time()
[... Prozeduren ...]
durance = durance - Time()
MsgBox durance
'*********************************************
Problem: Sind die Local Time and Region Settings auf eine 24 Stundenuhr eingestellt läuft alles wunderbar. Verwendet man jedoch 12 Stunden (am/pm) dann gibbet leider volle Uhrzeiten zurück und nicht die Differenz.
Für Hilfestellungen wäre ich dankbar.
Viele Grüße Arne
Anzeige