Zeitdifferenz berechen

[Neutral General]

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