Option Explicit
 
Dim Ziel As Date
Dim diffZeit As Long
 
Private Sub Form_Load()
    Ziel = "01.01.2005 00:00:00"
 
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    Dim t As Long
    Dim h As Long
    Dim m As Long
    Dim s As Long
    Dim d As Long
 
    diffZeit = DateDiff("s", Now, Ziel)
 
    t = Int(diffZeit / 86400)
    d = diffZeit Mod 86400
    h = d / 3600
    d = d Mod 3600
    m = d / 60
    s = d Mod 60
 
    Debug.Print CStr(t) + " Tage " + CStr(h) + " Stunden " + CStr(m) + "" & _
      "Minuten " + CStr(s) + " Sekunden"
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1