Bei der Berechnung von Zeitdifferenzen, wo der Endzeitpunkt vor dem Startzeitpunkt liegt, ergibt sich ein Fehler in der Darstellung ("#####")

VBA-Funktion zur Ermittlung eines Zeitraums, der über Mitternacht geht:

Function Midnight(ByVal dBeginn As Date, ByVal dEnde As Date) As String
' ------------------------------------------------------------------------------------
' Funktion ermittelt die Differenz zwischen 2 Uhrzeiten, 
' auch wenn es über Mitternacht geht
' ------------------------------------------------------------------------------------

    If dBeginn > dEnde Then
        Midnight = Format(1 - dBeginn + dEnde, "h:mm;@")
    Else
        Midnight = Format(dEnde - dBeginn, "h:mm;@")
    End If

End Function

Programmansicht	Formelansicht