Du Schlingel,
in deinem ersten Posting hast du das Datum mit führenden Nullen bei Tag und Monat angegeben und darauf ist mein Code ausgerichtet. Wenn du ohne führende Nullen arbeiten willst, dann musst du die Funktion ReformatStr() durch die Funktion ReformatDate() ersetzen:
Delphi-Quellcode:
function ReformatDate(s: string): string;
var
i, d,m,y: integer;
begin
i := Pos('.', s);
d := StrToInt(Copy(s, 1, Pred(i)));
Delete(s, 1, i);
i := Pos('.', s);
m := StrToInt(Copy(s, 1, Pred(i)));
Delete(s, 1, i);
y := StrToInt(s);
Result := ZeroPad(y, 4) + ZeroPad(m, 2) + ZeroPad(d, 2);
end;
Heitere Grüße vom marabu