Zeitdifferenz berechen

[marabu]

Hallo GreatFlo,

der Timer funktioniert schon, aber du verwendest ihn wohl falsch. Du hast zwei Zeiten, eine Referenzzeit Zeit1 und eine laufende Zeit (Zeit2 = Now). Im Timer musst du natürlich die Zeit2 auch laufen lassen, sonst siehst du nichts:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Zeit1 := EncodeDate(2005, 12, 14) + EncodeTime(19, 8, 0, 0);
  DerTimer.Enabled := True;
end;

procedure TForm1.DerTimerTimer(Sender: TObject);
begin
  D := Abs(Now - Zeit1);
  S := FormatDateTime('hh:nn:ss', Now - Zeit1);
  If D >= 1 Then S := IntToStr(Trunc(D)) + ' Tage ' + S;

  Label1.Caption := FormatDateTime('hh:nn:ss', Zeit1);
  Label2.Caption := FormatDateTime('hh:nn:ss', Now);
  Label3.Caption := S;
end;

Grüße vom marabu