Datumseingabe Begenzen

[Kunoishi]

Ein Hallo an alle !! und wieder mal ein problemchen

Ich habe ein Datumsfeld in Form von „TDateTimePicker“ und möchte verhindern,
dass die Möglichkeit besteht ein Datum auszuwählen bzw. einzugeben das nach dem
aktuellem Datum liegt.
Nach der Eingabe sollte dann über Showmessage die Info ausgegeben werden, dass die Eingabe nicht richtig ist wenn das Datum nach dem aktuellen Wert liegt.

Dazu hatte ich vollgende Idee, welche aber nicht so klapt

Delphi-Quellcode:

procedure TSachverhaltForm.datumExit(Sender: TObject);
var l,b,u:real;
begin
 Try
  l:=strtofloat(datum.Date);
 Except
   Showmessage('Eingabefehler: Sie können kein Datum angeben das nach dem Aktuellen Datum liegt !');
   l := 01.01.2001;
   datum.Date := '01.01.2001';
 end;
  u:=l>b;
  datum.Date := FloattostrF (u,ffGeneral,6,0);
  datum.setfocus
end;

Ich glaube ich habe da wieder mal ein falschen Ansatz

[Matze]

Hallo

l := 01.01.2001; Eine Gleitkommazahl hat max. 1 Kommastelle. Also da wird es schon krachen.

Delphi-Quellcode:

if Datum.Date < Now then
 // Datum liegt in der Vergangenheit

Müsste klappen.

[Kunoishi]

daran hatte ich garnicht gedacht
Danke

werde ich gleich nach dem Essen ausprobieren
mfg

[DeddyH]

Was spricht gegenDateTimePicker.MaxDate := date;

[Kunoishi]

irgend wie stehe ich auf der Leitung oder besser auf dem Bit.

[Kunoishi]

Knoten geplatzt, danke an euch

ich habe das Problem so jetzt so gelöst

Delphi-Quellcode:

procedure TProbeForm.DatumExit(Sender: TObjct);
begin
  if Datum.Date > Now Then
    begin
      showmessage(' Fehlerhafte Eingabe ');
      Datum.setfocus;
      exit;
    end;
  end;

danke an euch und euer Team

[himitsu]

Im .OnCreate der Form hättest du auch einfach .MaxDate des DateTimePickers auf Now zu setzen brauchen, dann könnte man garnicht erst ein zukünftiges Datum auswählen.

[DeddyH]

Tja, ich werde ja auch ständig überlesen .

[himitsu]

neee, ich hab dich diesesmal sogar gesehn

vorhin in der blöden RedBox, als ich das schonmal schreiben wollte
nja, und da er dich wohl übersah ...