Zeitdifferenz als Prozent darstellen

[Chris P]

Hallo zusammen,

ich schreibe ein Programm welches mir einen Countdown runterzählt.
Gibt es ja schon zu genüge und ist auch soweit kein Problem.

Aber ich möchte den Fortschritt der Zeit zwischen Start- und Endpunkt
prozentual darstellen.

Ist der '/'-Operator auf TDateTime definiert?

Habt ihr einen guten Vorschlag?


Danke im Vorraus.

[Klaus01]

Guten Abend,

TDateTime ist ein FloatTyp, Du kannst also ohne Probleme mit ihm rechnen.

Grüße
Klaus

[Hawkeye219]

Hallo Chris,

Zitat:

Zitat von Chris P

Ist der '/'-Operator auf TDateTime definiert?

Eigentlich stellt sich die Frage gar nicht, da du ja keine Zeitpunkte, sondern Zeitdifferenzen (zB. Millisekunden) dividieren musst. Die Unit DateUtils enthält Routinen, mit denen du recht komfortabel diese Differenzen ermitteln kannst.

Gruß Hawkeye

[Chris P]

Erstmal besten Dank für deine schnelle Antwort.

Ich mache folgendes:

Delphi-Quellcode:

function getTimeRemaining(hour, min, sec: Word): TDateTime;
begin
  Result := Now() + EncodeTime(hour, min, sec, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  stop := getTimeRemaining(0, 0, 15);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label4.Caption := FloatToStr(( stop - now()) / stop * 100); // <---- hier ist was an der Berechnung nicht ok?
end;

end.

Irgendwie bekomme ich die Prozent nicht raus.

Wo liegt mein Fehler?

[jfheins]

Du musst zusätzlich die Länge des Zeitraumes speichern, um dann die vergangene Zeit zu dieser Länge in Relation setzten zu können.

Also (stop - now()) / länge * 100 ;)

[Chris P]

Ok, klingt logisch :-)
Aber welche Einheit hat länge?

[jfheins]

Am besten die gleiche we TDateTime ... ist n Single wenn ich mich nicht irre. Kannst aber auch TTime schreiben, ist eh alles das gleiche ;)

[Chris P]

Hab das jetzt so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  start := Now();
  stop := getTimeRemaining(0, 0, 15);

  len := stop - start;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin 
  Label4.Caption := FloatToStr(( stop - now()) / len * 100);
end;

Bleibt nur das Problem das von 100% runter gezählt wird statt hoch.

Dann muss ich schreiben:

Delphi-Quellcode:

Label4.Caption := FloatToStr(( 1- stop - now()) / len * 100);

Gibts einen anderen Weg?

[nahpets]

Hallo,

Zitat:

Zitat von Chris P

Bleibt nur das Problem das von 100% runter gezählt wird statt hoch.

Dann muss ich schreiben:

Delphi-Quellcode:

Label4.Caption := FloatToStr(( 1- stop - now()) / len * 100);

Gibts einen anderen Weg?

ich rate mal, reicht nicht dann

Delphi-Quellcode:

Label4.Caption := FloatToStr(100 - ((1 - stop - now) / len * 100));

[Blup]

simple Prozentrechnung: (vergangene Zeit / Gesamtzeit) * 100%

((Now() - start) / (stop - start)) * 100