Option Explicit
 
Private GewähltesDatum As Date
Private GewählteZeit As String
Private Sub Form_Load()
  <font color=green>' Der gewählte Zeitpunkt wird in Zeit und Datum genau 
  ' festgelegt</font>
  GewähltesDatum = InputBox("Geben Sie das Datum des Ereignisses ein" & _
    "(z.B.: 30.10.2002 für den 30ten Oktober 2002")
  GewählteZeit = InputBox("Geben Sie die Zeit des Ereignisses ein" & _
    "(z.B.: 10:30:00 für 10 Uhr 30)")
 
  <font color=green>' Timer initialisiern</font>
  Timer1.Interval = 60
  Timer1.Enabled = True
  Timer1_Timer
End Sub
 
Private Sub Timer1_Timer()
  <font color=green>' aktuelles Datum / Zeit</font>
  Label1.Caption = Time
  Label2.Caption = Date
 
  ' Zeit-Differenz berechnen und ausgeben
  Dim lngSek As Long
  Dim lngStd As Long
  Dim lngMin As Long
 
  lngSek = DateDiff("s", Now, _
    CDate(CStr(GewähltesDatum) + " " + CStr(GewählteZeit)))
  lngMin = Int(lngSek / 60)
  lngSek = lngSek - (lngMin * 60)
  lngStd = Int(lngMin / 60)
  lngMin = lngMin - (lngStd * 60)
 
  <font color=green>' verbleibende Zeit im Format hh:nn:ss</font>
  Label3.Caption = Format$(lngStd, "00") + ":" + _
    Format$(lngMin, "00") + ":" + Format$(lngSek, "00")
 
  <font color=green>' verbleibende Tage</font>
  Dim lngDays As Long
  lngDays = DateDiff("d", Now, GewähltesDatum)
  Label4.Caption = CStr(lngDays)
End Sub