Datum in gültiges Datum umwandeln

[Duffy]

Hallo Tpercon,
stimmt, hier die Alternative

Delphi-Quellcode:

function YYYYDDMM2DDMMYYY(DateTimeStr: string): string;
begin
  Result := Copy(DateTimeStr, 7, 2) +
            Copy(DateTimeStr, 5, 2) +
            Copy(DateTimeStr, 1, 4);
end;

bye