Datum-Countdown

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

[Beginner2013]

Delphi-Quellcode:

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

So habe ich es jetzt. Fehler werden keine angezeigt. Wenn Ich aber das Programm ausführe, Kommt immernoch die Fehlermeldung, dass es kein gültiges Datum sei. Habe schon verschiedene Eingabeformate versucht. Leider immer das gleiche

[hhcm]

Bist du dir sicher das du dein Datum in Edit10 schreibst?
Die Procedure funktioniert so wie sie da steht.

[Perlsau]

Kommt drauf an, was du eingibst. Kommt der Fehler auch, wenn du z.B. '31.05.2013' eingibst?
Wieso nimmst du nicht einfach einen TDateTimePicker? In dessen OnChance-Ereignis schreibst du dann deinen Code für die Änderung des Label-Captions.
Noch etwas: Mit der Zeit, wenn deine Programme komplexer werden, blickst du nicht mehr durch, wenn du nicht aussagekräftige Variablenbezeichner verwendest: Nicht Edit10, sondern z.B. Edit_DatumEingabe ...

[Beginner2013]

Auch dann kommt die Fehlermeldung...hmm....
Danke für die Tipps. Ich arbeite noch nicht lange mit Delphi und bin gerade dabei mir alles selbst beizubringen.
Habe mit einem "TDateTimePicker" noch nie gearbeitet. Gibt es hierbei was besonderes zu beachten?

[Beginner2013]

Hat es evtl. damit zu tun, dass Edit10 auf einer anderen Form ist als Label5?

[hhcm]

Ich habe immer noch die Befürchtung das du in das falsche Feld schreibst
Schreib doch hinter dein begin mal
showmessage(Edit10.Text); Oder setz dir einen Breakpoint.

[baumina]

Zitat von hhcm:

Ich habe immer noch die Befürchtung das du in das falsche Feld schreibst
Schreib doch hinter dein begin mal
showmessage(Edit10.Text); Oder setz dir einen Breakpoint.

Ja, mach mal das showmessage und zudem noch eins mit
showmessage(datoToStr(date)); damit du sehen kannst was für ein Datumsformat auf deinem Rechner erwartet wird.

[Perlsau]

Zitat von Beginner2013:

Habe mit einem "TDateTimePicker" noch nie gearbeitet. Gibt es hierbei was besonderes zu beachten?

Einfach ausprobieren: TDateTimePicker