Ausdruck/Zeichenkette = umwandelbar in Datumsformat?

[Mitchl55]

Hallo,

wie kann ich feststellen, ob eine bestimmte Zeichenkette (Variable) in ein Datumsformat umgewandelt werden kann?
Bisher gibt es nämlich bei nicht güligen Zeichenketten einen Fehler und kann keinen festgelegtes Datum
in die Datenbank schreiben?

Danke & Gruß

Mitchl

[marabu]

Hast es ja mittlerweile schon selbst entdeckt - TryStrToDate() ist ganz hilfreich.

marabu

[Mitchl55]

Ja hab ich, aber ich hab Probleme bei der Umsetzung! Leider!

Versuche das so:

Delphi-Quellcode:

if not TryStrToDate(w, TDateTime, TFormatSettings) then begin
      ShowMessage('Falsch');
   end;

w ist meine Variable und das Format ist 'tt.mm.yyyy'. Mit den Beispielen
im Forum komme ich nopch nicht so klar. Was benötigt den die Funktion?

Danke & Gruß

Mitchl

[marabu]

When in Rome do as the Romans do.

Das verwendete Datumsformat bestimmt unter Windows der Benutzer, indem er die Systemeinstellungen an seine Vorlieben anpasst. Dein Programm kennt nach dem Programmstart diese Einstellungen, weil die Unit SysUtils ihre globalen Variablen entsprechend initialisiert. Für dich bedeutet das, dass du es einfacher angehen kannst:

Delphi-Quellcode:

var
  dt: TDateTime;
begin
  if TryStrToDate(DatumEdit.Text, dt) 
    then ShowMessage(Format('Datum "%s" ist OK', [DateToStr(dt)]))
    else ShowMessage(Format('"%s" ist kein gültiges Datum', [DatumEdit.Text]));
end;

Die Funktion mit zusätzlichem Parameter FormatSettings ist eigentlich nur für Datenkonvertierungen interessant.

marabu

[Mitchl55]

Vielen Dank, jetzt hab ich es verstanden!

Danke

Mitchl