Wie bekomme ich eine US-Datumszeit

[Alallart]

Wobei mich sowohl die Eingabe, wie auch die Ausgabe interessiert.

Den Typ TFormatSettings kenne ich, habe schon gelegentlich mit ihm gearbeitet. Allerdings drehte sich das stets um das Datum. Soweit kein Problem. Nun bekomme ich Datum und Zeit auf amerikanisch, also z. B. 01/23/2021 05:28 PM. Und um diese AM und PM geht es mir. Soweit ist das unkompliziert, man verändert z. B. bei ShortDateFormat den Formatstring. Wie aber gibt man TFormatSettings zu verstehen, dass die Uhrzeit amerikanisch ist?

[Alallart]

Ich habe etwas experimentiert, und habe es hinbekommen. Vielleicht braucht es jemand später auch, deshalb hier der Code:

Delphi-Quellcode:

function US_FormatDateTimeSettings: TFormatSettings;
begin
  //GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, Result);
  Result.DateSeparator := '/';
  Result.TimeSeparator := ':';
  Result.ShortDateFormat := 'MM/dd/yyyy';
  Result.ShortTimeFormat := 'hh:mm am/pm';
  Result.LongTimeFormat   := 'hh:mm:ss am/pm';
end;

function Default_FormatDateTimeSettings: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, Result);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyDate: TDateTime;
begin
  MyDate := StrToDateTime(Edit1.Text, US_FormatDateTimeSettings);

  ShowMessage(DateTimeToStr(MyDate, Default_FormatDateTimeSettings));
end;

Gibt man in Edit1 das Datum und Zeit im Format 01/23/2021 07:27 pm, kommt bei ShowMessage das Format 23.01.2021 19:27:00 raus.

[TiGü]

Schau dir mal an, was TFormatSettings.Create dir anbietet.
Mit eine Aufruf von TFormatSettings.Create('en-US') hast du ein fertig und komplett ausfülltes FormatSettings für den angloamerikanischen Sprachraum.

[Alallart]

Ich dachte immer TFormatSettings ist nur ein Typ? Ich habe eine etwas ältere Version von Delphi. So wie es aussieht geht das nicht bei mir.

[Programmer87]

Zitat von Alallart:

Ich habe etwas experimentiert, und habe es hinbekommen. Vielleicht braucht es jemand später auch, deshalb hier der Code:

Delphi-Quellcode:

function US_FormatDateTimeSettings: TFormatSettings;
begin
  //GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, Result);
  Result.DateSeparator := '/';
  Result.TimeSeparator := ':';
  Result.ShortDateFormat := 'MM/dd/yyyy';
  Result.ShortTimeFormat := 'hh:mm am/pm';
  Result.LongTimeFormat   := 'hh:mm:ss am/pm';
end;

function Default_FormatDateTimeSettings: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, Result);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyDate: TDateTime;
begin
  MyDate := StrToDateTime(Edit1.Text, US_FormatDateTimeSettings);

  ShowMessage(DateTimeToStr(MyDate, Default_FormatDateTimeSettings));
end;

Gibt man in Edit1 das Datum und Zeit im Format 01/23/2021 07:27 pm, kommt bei ShowMessage das Format 23.01.2021 19:27:00 raus.

Super Danke!! Das ist wirklich sehr hilfreich! Ich hatte das gleich Problem