<code>  <font color=#000099>Dim</font> lngMin <font color=#000099>As</font> _
  <font color=#000099>Long</font>
 
  dTime1 = "23:00"
  dTime2 = "23:50"
 
  <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> dTime2 < dTime1 <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>
 
  lngMin = DateDiff("n", <font color=#000099>CDate</font>(dDate1 & " " & _
    dTime1), _
    <font color=#000099>CDate</font>(dDate2 & " " & dTime2))
  MsgBox lngMin</code>