Převod datumového řetězce US na na české formátování

[Jirka]

Ahoj
Peru se s převodem řetězce ve formátu "Mar 19, 2024 01:46:06 PM"  na klasicke TdateTime  ve 24 hodinovém formátu.
Může někdo poradit jak vyrobit  (najít) funkci pro tento převod.

[Jan Fiala]

StrToDateTime s tim, ze si pred tim vytvoris promennou typu TFormatSettings, nastavis ji formatovani a pridas ji do funkce
Pak to muzes prevest zpet pres DateTimeToStr(). Pokud budeš chtít nějaký specifický format, opět předáš jako parametr nastavenou proměnnou TFormatSettings

[Jirka]

StrToDateTime s tim, ze si pred tim vytvoris promennou typu TFormatSettings, ...

To jsem právě zkoušel , ale nedokaži to dovést ke zdárnému konci .

[martinnr]

pouzit "Split" podla medzery a vyskladat z toho potom datum postupne. nie je to moc "pekne" ale funkcne by to malo byt.

[chaloup]

To jsem právě zkoušel , ale nedokaži to dovést ke zdárnému konci .

Nějakej fragment kódu co jsi zkoušel by byl fajn...?

[Jirka]

Nějakej fragment kódu co jsi zkoušel by byl fajn...?

Zatím jsem to opustil a vyřešil jinak.
Tuto hodnotu mi vrací platební terminál v JSON  a vzhledem k tomu že budu muset demo terminál brzo vrátit, jsem to udělal takto":
Při response z terminálu jsem  vygeneroval  časové razítko v delphi (NOW) které používam při tisku stvrzenky a to textové datum
ukládám pouze do logu.

[Jan Fiala]

Myslel jsem něco takového:

Kód: Delphi [Vybrat]

1. procedure Test;
2. var
3.   s: string;
4.   fs: TFormatSettings;
5.   dt: TDateTime;
6. begin
7.   fs := TFormatSettings.Create('en-US');
8.   fs.ShortDateFormat := 'mmm dd, yyyy';
9.   s := 'Mar 19, 2024 01:46:06 PM';
10.   dt := StrToDateTime(s, fs);
11.   ShowMessage(DateTimeToStr(dt));
12. end;
13.  

[Jirka]

Myslel jsem něco takového:
procedure Test;
var
  s: string;
  fs: TFormatSettings;
  dt: TDateTime;

Díky vyzkouším .

Doplněno

 dt := StrToDateTime(s, fs);  // Vyhodí to vyjimku
EConvertError  exception message  : ''Mar 19, 2024 01:46:06 PM'' is not a valid date and time.

Možná to že mám jenom XE2
 jak píši, vyřešil jsem to jinak . 

Ale i tak díky za pomoc