Datum auf Syntax überprüfen

[Jelly]

Die Funktion StrToDate wandelt eine String in ein Datum um. Dabei muss der String dem ShortDateFormat entsprechen. Alos könntest Du Folgendes probieren, was allerdings auch wieder über try..except läuft:

Delphi-Quellcode:

function IsDateValid (Datum : string ; var D : TDate) : boolean ;
var
 OldShortDateFormat : string ;
begin
     OldShortDateFormat := ShortDateFormat ;
     ShortDateFormat := 'yymmdd' ;

     try
        D := StrToDate (Datum) ;
        Result := true ;
     except
        Result := false ;
     end ;

     ShortDateFormat := OldShortDateFormat ;
end ;

ungetestet...