Zeitcountdown mit 2 variablen Zeiten

[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.