Private Sub Timer1_Timer()
  Dim vDifferenz As Variant
  Dim vFest As Variant
  Dim iDays As Long
  Dim iHours As Long
  Dim iMinutes As Long
  Dim iSeconds As Long
 
  <font color=green>' Festes Datum</font>
  vFest = CDate("10.06.2002 12:00:00")
 
  <font color=green>' Zeit-Differenz: Sekunden</font>
  iSeconds = DateDiff("s", Now, vFest)
 
  <font color=green>' Sekunden umrechnen - in Tage</font>
  iDays = Int(iSeconds / 86400)
  iSeconds = iSeconds - (iDays * 86400)
 
  <font color=green>' Jetzt Stunden</font>
  iHours = Int(iSeconds / 3600)
  iSeconds = iSeconds - (iHours * 3600)
 
  <font color=green>' Jetzt Minuten</font>
  iMinutes = Int(iSeconds / 60)
  iSeconds = iSeconds - (iMinutes * 60)
 
  lblTime.Caption = "CountDown: " & CStr(iDays) & " Tag(e), " & _
    Format$(iHours, "00") & ":" & Format$(iMinutes, "00") & _
    ":" & Format$(iSeconds, "00") & " Stunden"
End Sub