Private Sub Irgendwas()
    Dim Startzeit As Date
    Dim Endzeit As Date
 
    Startzeit = CDate("31.10.2011 22:00:00")
    Endzeit = CDate("01.11.2011 06:15:30")
 
    Minuten = DateDiff("n", Startzeit, Endzeit)
    ' Das ist mehr als eine Stunde, obwohl Tageswechsel beim Datum (795)
    ' Hier sind die Sekunden auch nicht berücksichtigt, da das Intervall auf 
    ' Minunten lautet
    Stunden = Minuten / 60 ' Bzw. noch runden auf zwei Nachkommastellen bei 
    ' Bedarf
 
    MsgBox Minuten & " Minuten" & vbCrLf & Stunden & " Stunden"
    ' Wenn das mehr als 24 Stunden sind, dann halt noch weiter auf Tage 
    ' umrechnen usw.
    ' Ein Tag hat 24 Stunden, siehe oben wie eine Stunde 60 Minuten hat
End Sub