Wieder ein Countdown Problem

[Sharky]

Hai Maddin,

ich würde einfach die Anzahl der Minuten oder Sekunden ermitteln bis zum Termin. Von dieser Zahl ausgehent kannst Du dann ja einfach berechnen wieviele Jahre/Tage/Stunden es sind.

Delphi-Quellcode:

uses
  dateutils;

procedure TForm1.Button1Click(Sender: TObject);
var
  datum : TDate;
  zeit  : TTime;
  termin : TDateTime;
  jetzt : TDateTime;
  minuten : Cardinal;
begin
  datum := Trunc(DateTimePicker1.Date);
  zeit := Frac(DateTimePicker2.Time);
  termin := datum + zeit;
  jetzt := now;
  minuten := MinutesBetween(jetzt,termin);
  ShowMessage(Format('Der Termin ist in %d Minuten',[minuten]));
end;

[Edit]Da hat doch der Gollum dazwichen gepostet [/edit]