Datums-Umwandlung

[Delphi.Narium]

Delphi-Quellcode:

var
  myStr : String;
  myDate : String;
  dt : TDateTime;
begin
  // Wenn's Datum immer so kommt und es für die nächsten knapp 78 Jahre ausreicht, geht es auch so:
  myStr   := '220531'; 
  myDate  := Format('%s.%s.20%s',[Copy(myStr, 5, 2),Copy(myStr, 3, 2),Copy(myStr, 1, 2)]);
  Caption := myDate; 
  // Wenn man es dann auch noch als Datum benötigt:
  dt := StrToDate(myDate);
end;