| 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
|
