Datum-Countdown

[Beginner2013]

Hallo Leute,

ich habe vor mir einen Countdown zu programmieren. Leider komme ich damit nicht ganz zurecht.
Ich möchte ein Datum (dd.mm.yy) aus einem Edit einlesen und dann in einem Label anzeigen wieviele Tage es bis dahin noch sind anzeigen.

Kann mir bitte jemand helfen? Das untenstehende klappt leider nicht.

Delphi-Quellcode:

var
Test : TDate;

begin
Test :=  strtodate(Edit10.Text)  -  date();
Form13.Label5.Caption := DatetoStr(Test);
end;

...

[baumina]

Die Variable Test nicht als TDate sondern als Integer deklarieren, müsste schon reichen.

[DeddyH]

DaysBetween

[baumina]

Zitat von DeddyH:

DaysBetween

Da keine Uhrzeit mit im Datum ist, eher unnötig?

[Beginner2013]

Vielen Dank, in welchem Format müssen die Parameter an die Funktion "DaysBeteen" übergeben werden? Also wie muss ich hierbei das datum in Edit10 schreiben?

Der Versuch mit der Änderung des Datentypes zu Int klappt leider nicht.

[baumina]

Hast das auch abgeändert?
Form13.Label5.Caption := IntToStr(Test);

[Beginner2013]

Delphi-Quellcode:

procedure TForm1.Termincountdown1Click(Sender: TObject);
var
Test : Integer;
begin
Form13.Show;
Form13.Caption := 'Termincountdown';
Test :=    (Edit10.Text) -  date();
Form13.Label5.Caption := InttoStr(Test);
end;

geht leider nicht.

[DeddyH]

Versuch es mit trunc().
Test := trunc(StrToDate(Edit10.Text) - date);

[Beginner2013]

Das wird akzeptiert.
was macht trunc()?
Wenn ich nun aber "09.04.1982" in Edit10 eingebe, kommt die Meldung "09.04.1982 is not a valid date". Und Label5 blieibt unverändert.

[DeddyH]

Trunc() schneidet die Nachkommastellen einfach ab. Und den Fehler kann ich nicht nachvollziehen, bei mir wird das Datum akzeptiert. Vielleicht solltest Du auf ein MaskEdit oder einen DateTimePicker ausweichen, um Schreibfehler bestmöglich auszuschließen?