'Beispiel : Count-Down zum bestimmten Zeitpunkt.
'Hallo Chris²
'Hier ein kleines Lösungsbeispiel eines "Counters" der bis zu einem bestimmten 
' Datum die Zeit
'zählt.
'NG.:09.03.02
Private Sub Form_Load()
    Dim n   As Integer
 
    With Timer1
        .Interval = 1000
        .Enabled = True
    End With
    '
    For n = 0 To 5
        Label1(n) = ""
    Next
End Sub
 
Private Sub Timer1_Timer()
    Dim mDays           As Variant
    Dim mHours          As Integer
    Dim mMinutes        As Integer
    Dim mSeconds        As Integer
 
    Dim sMsg        As String
    Dim dtDate      As Date
 
    dtDate = "11/03/2003"                   'Das Datum bis zu dem gezählt wird
    sMsg = "Count-Down zum : " & dtDate
 
    mDays = DateDiff("d", Now, dtDate - 1)
    mHours = 23 - Format(Time, "hh")
    mMinutes = 59 - Format(Time, "nn")
    mSeconds = 60 - Format(Time, "ss")
    If mSeconds = 60 Then mSeconds = "00"
 
    Label1(0) = sMsg
    Label1(1) = "Aktuelle Zeit : " & Time
    Label1(2) = Format(mDays, "000") & " Tag/e"
    Label1(3) = Format(mHours, "00") & " Stunde/n"
    Label1(4) = Format(mMinutes, "00") & " Minute/n"
    Label1(5) = Format(mSeconds, "00") & " Sekunde/n" & " bis zum : " & dtDate
 
    'oder...
    Label2 = sMsg & vbCrLf & _
                Time & " Aktuelle Zeit" & vbCrLf & _
                Format(mDays, "000") & ":" & _
                Format(mHours, "00") & ":" & _
                Format(mMinutes, "00") & ":" & _
                Format(mSeconds, "00") & " bis zum  : " & dtDate
End Sub
'MfG
'Frank