StrToDate EX

[Sir Rufo]

Zitat von Gruber_Hans_12345:

Danke!!

Sieht sehr gut aus.

Als Anregen für eine zukünftige verion wäre noch perfekt, wenn die funktion auch sowas kann:
StrToDateFmt( '21.06.2010', 'DD.MM.YYYY') => 21.06.2010
StrToDateFmt( '21.6.2010', 'DD.MM.YYYY') => 21.06.2010
StrToDateFmt( '1.6.2010', 'DD.MM.YYYY') => 1.6.2010

aber ansonten perfekt!

Danke nochmal!

Aber die Funktion kann das doch? Du musst nur alle möglichen Kombinationen als Array mitgeben, dann passt das
Das war doch gerade das flexible an diesem Konvertierungs-Mopped

Delphi-Quellcode:

StrToDateFmt( 
  DatumStr, 
  [ 'DD.MM.YYYY', 'D.MM.YYYY', 'DD.M.YYYY', 'D.M.YYYY',
    'DD.MM.YY', 'D.MM.YY', 'DD.M.YY', 'D.M.YY', 
    'DDMMYY', 'DDMMYYYY',
    'YY-MM-DD', 'YYYY-MM-DD' ] )

Das Datum 01.06.2010 wird jetzt aus folgenden Eingaben korrekt erkannt:

Code:

01.06.2010, 1.06.2010, 01.6.2010, 1.6.2010, 01.06.10, 1.06.10, 01.6.10, 1.6.10, 010610, 01062010, 10-06-01, 2010-06-01