Überprüfung Datumsformat

[nadja]

Hallo,

ich bin sehr unerfahren im Umgang mit DELPHI.

Mit welcher Funktion kann ich überprüfen, ob ein eingegebenes Datum vom Typ DATE ist (zum späteren Eintragen in die DB)?

Nadja

[dfried]

Du könntest z.B. einfach versuchen den eingegebenen String mit der Funktion StrToDate in ein Datum umzuwandeln. Am besten innerhalb eines try except blocks.

[Sharky]

Hai nadja,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"

Zitat von nadja:

Mit welcher Funktion kann ich überprüfen, ob ein eingegebenes Datum vom Typ DATE ist ...

Ich würde das überhaupt nicht prüfen
Benutze für die Eingabe eine Komponente mit der nur Datumswerte eingegeben werden können.
Unter Delphi gibt es dafür die Komponente TDateTimePicker. Grundsätzlich sollte man vermeiden das der Benutzer unerwünschte Daten eingeben kann und nicht erst im Nachhinein prüfen ob die Daten richtig sind.

[marabu]

Hallo Nadja,

meine Kunden mögen den DateTimePicker nicht. Im Erfassungsdialog muss ich Edit-Felder verwenden. Ich färbe das Feld beim Erfassen ein, wenn die Eingabe nicht korrekt ist. Der OkButton schließt den modalen Erfassungsdialog nur, wenn alle Eingaben akzeptabel sind:

Delphi-Quellcode:

procedure TDetailDialog.DateEditChange(Sender: TObject);
var
  dt: TDateTime;
begin
  with Sender as TEdit do
  begin
    Tag := 1 - Ord((Text = '') or TryStrToDate(Text, dt));
    if Odd(Tag)
      then Color := clRed 
      else Color := clWindow;
  end;
end;

procedure TDetailDialog.OkButtonClick(Sender: TObject);
begin
  if Odd(DateEdit.Tag)
    then ShowMessage('Datum ungültig')
    else ModalResult := mrOK;
end;

Grüße vom marabu

[nadja]

Hallo zusammen,

vielen Dank für die schnelle Hilfe.


Nadja