Hallo,
ich programmiere gerade für einen Bekannten einen Countdown bis zum 3.8.2010. Mit diesem Quelltext zeige ich die Tage, Stunden, und Minuten bis zum 3.8.2010 an.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Days.Caption := IntToStr(DaysBetween(StrToDate(DateToStr(Now)),StrToDate('03.08.2010')));
Hours.Caption := IntToStr(23 - HoursBetween(StrToTime(TimeToStr(Now)),StrToTime('0')));
Minutes.Caption := IntToStr(59 - MinutesBetween(StrToTime(TimeToStr(Now)),StrToTime(IntToStr((23 - StrToInt(Hours.Caption))))));
// Hier sollen die Angaben für Sekunden rein
end;
Wie könnte ich jetzt dafür sorgen dass die verbleibenden Sekunden auch angezeigt werden?
Ich bring dass einfach net hin