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?