Delphi-PRAXiS - Delphi Zeitdifferenz berechen

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 :mrgreen: