Hallo
DP'ler,
Also ich habe einen Countdown mit folgendem Code
Delphi-Quellcode:
procedure TForm2.Timer3Timer(Sender: TObject);
VAR
EndDatum : TDateTime;
Aktuell : TDateTime;
Dazwischen : Integer;
Tage, Stunden, Minuten, Sekunden : Integer;
BEGIN
// Countdown
DateTimePicker1.Time := DateTimePicker2.Time;
EndDatum := DateTimePicker1.DateTime;
Aktuell := Now;
Dazwischen := SecondsBetween(Aktuell, EndDatum);
Tage := Dazwischen div (60*60*24);
Dazwischen := Dazwischen - (Tage * 60 * 60 * 24);
Stunden := Dazwischen div (60*60);
Dazwischen := Dazwischen - (Stunden * 60 * 60);
Minuten := Dazwischen div 60;
Dazwischen := Dazwischen - ( Minuten * 60);
Sekunden := Dazwischen;
Form1.Label4.Font.Color := clred;
Form1.Label4.Caption := Format('%d Tage, %d Stunden, %d Minuten & %d Sekunden bis ' + Edit5.Text + '!', [Tage, Stunden, Minuten, Sekunden]);
IF Dazwischen <= 0 THEN BEGIN // ggf liegt hier der Fehler
IF CheckBox10.Checked THEN BEGIN
sndPlaySound(PChar(ExtractFilePath(ParamStr(0)) + 'Wecker.wav'),SND_ASYNC);
END;
ShowMessage('Ihr Countdown ist nun beendet! '+ (Edit5.text));
Form1.Label4.Hide;
sndPlaySound(nil,0);
END;
END;
Soweit geht das auch alles. Allerdings wenn ich den Countdown auf 15:46:10 einstelle bekomme ich auch ne Nachricht, das der Countdown beendet sei bei 15:45:10. Sprich er vergleicht die Sekunden?!