Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: Datum anhand Format umwandeln
8. Mai 2013, 16:00
AFAIK brauchst Du zwingend einen DateSeparator in Deinem String. Etwas umständlich, aber das hier klappt:
Delphi-Quellcode:
var
Settings: TFormatSettings;
d: TDate;
s: string;
begin
s := '20130705';
Insert('/', s, 5);
Insert('/', s, 8);
Settings.ShortDateFormat := 'yyyy/mm/dd';
Settings.DateSeparator := '/';
d := StrToDate(s, Settings);
ShowMessage(FormatDateTime('dd.mm.yyyy', d));
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|