<code>  <font color=#000099>Dim</font> lngMin <font color=#000099>As</font> _
  <font color=#000099>Long</font>
  <font color=#000099>Dim</font> lngStd <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> sTime1 <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> sTime2 <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  sTime1 = "11:23"
  sTime2 = "16:44"
 
  <font color=green>' Zeitdifferen lässt sich nur berechnen, wenn man</font>
  <font color=green>' auch ein gültiges Datum mit angibt</font>
  <font color=#000099>Dim</font> dDate1 <font color=#000099>As</font> Date
  <font color=#000099>Dim</font> dDate2 <font color=#000099>As</font> Date
 
  dDate1 = Format$(Now, "dd.mm.yyyy")
 
  <font color=green>' Wenn dTime2 < dTime1</font>
  <font color=#000099>If</font> sTime2 < sTime1 <font color=#000099>Then</font>
    dDate2 = DateAdd("d", 1, dDate1)
  <font color=#000099>Else</font>
    dDate2 = dDate1
  <font color=#000099>End</font> <font color=#000099>If</font>
 
  <font color=green>' Zeit-Differenz in Minuten</font>
  lngMin = DateDiff("n", <font color=#000099>CDate</font>(dDate1 & " " & _
    sTime1), _
    <font color=#000099>CDate</font>(dDate2 & " " & sTime2))
 
  <font color=green>' Und jetzt ins Format hh:nn umwandeln</font>
  lngStd = Int(lngMin / 60)
  lngMin = lngMin - (lngStd * 60)
 
  MsgBox "Zeit-Differenz: " & _
    Format$(lngStd, "00") & ":" & Format$(lngMin, "00")</code>