Countdown

[fatED]

Hallo

folgendes Problem.

ich habe ein label so fromatiert ->
Label1 = Format(TimeSerial(hh, mm, ss), "hh:mm:ss")

hh,mm,ss sind variabeln die durch eine eingabe in Text1,2,3 geändert werden können.

nun soll wen eine Zeit im label eingegeben ist z.B. 01:02:03
der Timer runterlaufen. (01:02:02 ... 01:02:01 .... 01:01:59 ...)

das kriege ich aber nicht hin.

hoffe das ihr mir da weiter helfen könnt.

[supersonic]

Mir fällt da auch nur ne recht umständliche Lösung ein ....

' Text1.text = Stunden
' Text2.text = Minuten
' Text3.text = Sekunden

Private Sub Timer1_Timer()

Timer1.Interval = 1000

If text1.text = 0 then '60 Sekunden abgelaufen
text2.text = text2.text -1 '60 Seks = 1 Min bei text2.text abziehen
text1.text = 60 'wieder 60 Sekunden dazuzählen
text1.text = text1.text -1 'Eine Sekunde abziehen ( =59 Seks)
end if


if text2.text = 0 then '60 Minuten abgelaufen
text3.text = text3.text - 1 'Eine Stunde in text3.text abziehen
text2.text = 60 'wieder 60 Minuten dazuzählen
text2.text = text2.text -1 'und wieder die nächste Minute abziehen ( = 59 mins)
end if

text1.text = text1.text -1 'Pro Durchlauf eine Sekunde abziehen

End Sub

...und das selbe Schema dann noch für Text3 . Also das wäre mal ein Grundgedanke , geht wahrscheinlich so nicht ganz , aber du müsstest halt nochn bisschen dran feilen

[ARCUS_L]

Hi !!

Etwas andere Lösung !!

Private tCountDown As Date

Private Sub Form_Load()

    tCountDown = DateAdd("h", 2, Now)
        
End Sub

Private Sub Timer1_Timer()

Dim sCountDown As String

    sCountDown = Format$(tCountDown - Now, "h:mm:ss")
    Label1.Caption = sCountDown
    
End Sub

mfg ARCUS_L