<code>Dim lngSec As Long
Dim lngMin As Long
Dim lngHour As Long
Dim lngDay As Long
Dim strDiff As String
 
<font color=green>' Differenz in Sekunden berechnen</font>
lngSec = DateDiff("s", auswahlverweildauer!AnfangDatum, _
  auswahlverweildauer!EndeDatum2)
 
<font color=green>' Jetzt Differenz im Format hh:mm:ss</font>
lngMin = lngSec  60
lngSec = lngSec - (lngMin * 60)
lngHour = lngMin  60
lngMin = lngMin - (lngHour * 60)
lngDay = lngHour  24
lngHour = lngHour - (lngDay * 24)
 
strDiff = "(" & Format$(lngDay, "00") & ")" & _
  Format$(lngHour, "00") & ":" & _
  Format$(lngMin, "00") & ":" & _
  Format$(lngSec, "00")</code>