Dim StartZeit As Date
  Dim ZielZeit As Date
  Dim SollZeit As Date
  Dim ZeitDif As Date
 
  SollZeit = CDate("25.05.2008 15:00")
  StartZeit = CDate("25.05.2008 12:00")
  ZielZeit = CDate("25.05.2008 15:45")
  ZeitDif = SollZeit - ZielZeit
 
  Print "Gebraucht Zeit: ", Format$(ZielZeit - StartZeit, "hh:mm:ss")
 
  If ZielZeit > SollZeit Then
    Print "Sie waren " & Format$(ZeitDif, "hh:mm:ss") & " zu langsam."
  Else
    Print "Sie waren " & Format$(ZeitDif, "hh:mm:ss") & " schneller."
  End If

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.