Datums-Umwandlung

[mytbo]

Zitat von 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;

Oder wenn du dir die String-Kopiererei sparen willst (und alle Bedingungen sind erfüllt!):

Delphi-Quellcode:

var
  p: PChar;
begin
  date_str := '220531';
  p := PChar(date_str);
  ShowMessage(Format('%.2s.%.2s.20%.2s', [(p + 4), (p + 2), p]));

Bis bald...
Thomas