Also ich mache das so:
Delphi-Quellcode:
uses DateUtils;
procedure TForm1.FormActivate(Sender: TObject);
var Tage,Stunden,Minuten,Sekunden: Integer;
begin
// DateTimePicker muss auf 01.01.2006 00:00:00 gestellt sein.
repeat
Tage := DaysBetween(Now,DateTimePicker1.Date);
Stunden := HoursBetween(Now,DateTimePicker1.Date) - (Tage*24); // Bzw (DaysBetween(Now,DateTimePicker1.Date)*24);
Minuten := MinutesBetween(Now,DateTimePicker1.Date) - (HoursBetween(Now,DateTimePicker1.Date)*60);
Sekunden := SecondsBetween(Now,DateTimePicker1.Date) - (MinutesBetween(Now,DateTimePicker1.Date)*60);
Label1.Caption := 'Noch ' + IntToStr(Tage) + ' Tag(e) und ' + IntToStr(Stunden) + ' Stunde(n) und ' + IntToStr(Minuten) + ' Minute(n) und ' + IntToStr(Sekunden) + ' Sekunde(n)!';
Application.ProcessMessages;
until Application.Terminated;
end;
Obwohl.. Ich glaube FormatDateTime ist ganz praktisch... ich probier das mal damit^^
Ok marabus ist tausendmal kürzer und unkomplizierter ^^
Hab grade ein paar Vorzüge von FormatDateTime kennengelernt
