Zeitcountdown mit 2 variablen Zeiten

[Osse]

Hallo,

ich habe ein Programm geschrieben, in dem es möglich sein soll, zu einer betimmten Zeit ein Funktion zu Starten.

Um den Anweder einen kleien Überblick zu geben, wann die Funktion ausgeführt wird, möchte ich die noch verbleibende Zeit mit einem Countdown anzeigen.

Also konkret : ich gebe eine geprüfte Zeit ein, d.h. die Zeit liegt auch wirklich in der Zukunft. Nun möchte ich mir immer die Zeit berechenen lassen, die noch verbleibt bis die Funktion ausgeführt wird.


Gibt es in Delphi schon eine solche Funktion??

Danke

MFG Oliver

[Oxmyx]

VerbleibendeZeit := ZukunftsZeit - Now;

[Sharky]

Zitat von Oxmyx:

VerbleibendeZeit := ZukunftsZeit - Now;

Hai Oxmyx,

Now beinhaltet auch das aktuelle Datum. Darum müsste der Datumsanteil entfernt werden.
VerbleibendeZeit := ZukunftsZeit - Frac(now); Aber mit dieser Art wird es sicher Probleme geben wenn zwichen der Zukunftszeit und jetzt ein Datumswechsel liegt.
Darum ist es sicher besser die Differenz in sekunden zu ermitteln und diese dann entsprechend formatiert darzustellen.

[Oxmyx]

Es ist doch vorteilhaft, TDateTime zu verwenden, gerade weil es eine Datumskomponente hat.

[Sharky]

Zitat von Oxmyx:

Es ist doch vorteilhaft, TDateTime zu verwenden, gerade weil es eine Datumskomponente hat.

TDate, TTime und TDateTime sind alle drei gleich deklariert.

Aber wie soll jetzt dies hier gelöst werden?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  VerbleibendeZeit : TDateTime;
  ZukunftsZeit : TDateTime;
begin
  ZukunftsZeit := EncodeDate (2005,6,20) + EncodeTime(1,30,0,0);
  VerbleibendeZeit := ZukunftsZeit - now;
  ShowMessage(DateTimeToStr (VerbleibendeZeit));
end;

Das Ergebniss der Berechnung muss also in jedem Fall noch weiter verarbeitet werden.

[Osse]

Vielen Dank,

da ich meine Zeit aus einem Editfenster eingelese, hatte ich natürlich nicht TDateTime sondern nur TTime .

Tja, schade Schokolde ging somit nicht.

Anfangszeit := Date + StrToTime(ME_Startzeit.editText); und dann geht auch

TimeToStr(Anfangszeit - Now) ganz hervorragend

Jetzt ist genau die richtige Zeit um

Vielen Dank und einen schönen Abend noch