Zeit-Differenz mit Datediff
BetzMartin
Gesendet: 22.02.13 14:02
Betreff: Zeit-Differenz mit Datediff


Hallo Forum

Möchte die Differenz zwischen zwei Datums werten berechnen! Die Anzeige soll in Stunden, Minuten und Sekunden ("hh:mm:ss") sein. Die Berechnung muss auch über Mitternacht hinaus funktionieren! Also z.B. Startzeit 21.02.2013 22:15:00 Endzeit 22.02.2013 07:30:55! Ich habe es mit diesem Code versucht, leider ohne Erfolg! Resultat war 00:00:00

Private Sub Befehl42_Click()

Dim m_startdatum As Date
Dim m_enddatum As Date
Dim weiter As String

m_startdatum = Me!Startdatum
m_enddatum = Now()
weiter = MsgBox(Format(DateDiff("n", m_enddatum, m_startdatum), "hh:mm:ss"), vbOKOnly + vbExclamation, "Test")

End Sub

Was ist falsch? Gibt es eine Alternative zu Datediff?


Mit freundlichen Grüssen

Betz Martin

Top of the page Bottom of the page