Datums-Umwandlung

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Arkar · begonnen am 27. Mai 2022 · letzter Beitrag vom 27. Mai 2022

Vorheriger Beitrag

Nächster Beitrag

Delphi.Narium

Registriert seit: 27. Nov 2017
2.555 Beiträge

Delphi 7 Professional

AW: Datums-Umwandlung

27. Mai 2022, 16:39

zusammenfalten · markieren

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;