String auf Datum prüfen

[monta]

Ein simples Problem, wie kann man einen String daraufhin überprüfen, ob er ein gültiges Datum enthält?

Ich weiß, das es TryDateToStr gibt, das Problem ist aber, das diese Funktion versucht, immer ein gültiges Datum draus zu basteln, wenn ich 23.03 übergebe erhalte ich bspw. 23.03.2009 als Datum und ein true. Übergebe ich 1.12.333322222 so erhalte ich als Datum 1.12.3333.

Aber genau das will ich ja nicht, sondern in diesen Fällen hätte ich gerne False und nicht ein irgendwie geratenes Datum und als Rückgabe true.

[Scotty]

Hin- und wieder zurück konvertieren? Der Vergleich wäre dann das Ergebnis.

[monta]

Danke!

Manchmal sieht man halt den Wald vor Bäumen nicht. Mit Vergleich funktioniert es bestens.

Code: Alles auswählen

function StringIsDate(const Date: string): boolean;
var Datum: TDateTime;
begin
  if TryStrToDate(Date, Datum)  then
    Result := (Date = DateToStr(Datum));
  else
    Result := false;
end;

[Hitman]

Also eleganter fände ich da ..... RegEx

[Socke]

Unter Delphi 7 bauten die ganzen Funktionen für Zeit/String-Konvertierung noch auf den Formatstrings auf. Unter FPC ist das ja ein wenig anders geregelt. Wenn du also ein festes Format hast (Achtung: verschiedene Sprachen haben verschiedene Formate) könntest du evtl. dort fündig werden.

[marcov]

Also eleganter fände ich da ..... RegEx

Regex are nie elegant.

scandatetime raises Exceptions when das Input string falsch ist:

http://www.freepascal.org/docs-html/rtl ... etime.html" onclick="window.open(this.href);return false;

[theo]

Regex are nie elegant.

Bravo, endlich sagt's mal einer.

[Hitman]

Ich sagte auch nur "eleganter" Besser als zweimal hin- und herkonvertieren wäre es allemal.

[theo]

Kann deine RegEx mit dem 31. Februar umgehen?
http://www.stupidedia.org/stupi/31._Februar" onclick="window.open(this.href);return false;

[monta]

Jaja, ihr mit euren RegEx

ob das wirklich schneller ist, als zweimal zu konvertieren wäre aber noch festzustellen.

Aber egal, ScanDateTime sieht doch schonmal sehr gut aus, mit einem klaren EConvertError, denn man abfangen kann ohne das irgendwelche Daten geraten werden, wie bei TryStringToDate. Das sollte mein Problem auch lösen, danke.

[marcov]

Ich sagte auch nur "eleganter" Besser als zweimal hin- und herkonvertieren wäre es allemal.

Nein. Das ist ima noch immer eleganter als einen interpreter inlinken.