Dim Datum1 As String
Dim Datum2 As String
Dim lngDays As Long
Dim lngHours As Long
Dim lngMin As Long
Dim lngSec As Long
 
Datum1 = "27.11.2001 11:00:00"
Datum2 = "28.11.2001 14:20:34"
 
<font color=green>' Zeitdifferenz in Sekunden</font>
lngSec = DateDiff("s", CDate(Datum1), CDate(Datum2))
 
<font color=green>' Anzahl Tage, Stunden, Minuten und Sekunden ermitteln</font>
Const SecondsPerDay = 86400
Const SecondsPerHour = 3600
Const SecondsPerMin = 60
 
lngDays = Int(lngSec / SecondsPerDay): lngSec = lngSec - (lngDays * _
  SecondsPerDay)
lngHours = Int(lngSec / SecondsPerHour): lngSec = lngSec - (lngHours * _
SecondsPerHour)
lngMin = Int(lngSec / SecondsPerMin): lngSec = lngSec - (lngMin * SecondsPerMin)
 
MsgBox "Zeit-Differenz: " & _
  CStr(lngDays) & "Tag(e) und " & _
  Format$(TimeSerial(lngHours, lngMin, lngSec), "hh:nn:ss") & " Stunden"