Datum wird nach "FormatDateTime" falsch ausgegeben

[Union]

So wär's vielleicht besser:

Delphi-Quellcode:

function IsoDate(const DateEU : string) : TDateTime;
var
  LFs : TFormatSettings;
begin
  LFs := TFormatSettings.Create;
  LFs.TwoDigitYearCenturyWindow := 99;
  Result := StrToDateTime(DateEU, LFs);
end;