ERFORDERLICHE OBJEKTE

1 Timer (Timer1)
1 Label (Label1)
 FORM-CODE

   Private Sub Form_Load()
      Timer1.Interval = 1000
   End Sub

   Private Sub Timer1_Timer()
      Datum = #1/1/2000#
      SekGesamt = DateDiff("s", Now, Datum)
      Tage = (SekGesamt \ 86400)
      Stunden = (SekGesamt - (Tage * 86400)) \ 3600
      Minuten = (SekGesamt - (Tage * 86400) - (Stunden * 3600)) \ 60
      Sekunden = (SekGesamt - (Tage * 86400) - (Stunden * 3600)) - _
         (Minuten * 60)
      Label1.Caption = Tage & " Tage, " & Stunden & ":" & _
         Minuten & ":" & Sekunden
   End Sub