DateTime JJMMTT umwandeln in TTMMJJ

[Back2Code]

Hallo zusammen,

ich habe hier einen DateTime String im Format "JJMMTT" [170126:0920]: welchen ich gerne in folgendes Format "YYYYMMDD" [26.01.2017:09:20:00] umwandeln würde


http://www.delphipraxis.net/152401-strtodate-ex.html

Hatte ich bei meiner Suche gefunden hat aber nur ohne Zeitangabe geklappt.

[himitsu]

Du könntest natürlich erstmal die beiden Strings mit Datum und Uhrzeit extrahieren, sie einzeln decodieren, zusammenrechnen und dann gemeinsam neu encodieren.

Das Hauptproblem ist halt, dass die Standard-Dekodierungsfunktionen von Delphi die FormatStrings ignorieren und nur eine Hand voll fest vordefinierter Formate unterstützen.


PS: YYYYMMDD -> 26.01.2017:...
YYYYMMDD oder DDMMYYYY?

Delphi-Quellcode:

Insert(DeinString, '.', 3);
Insert(DeinString, '.', 6);
Insert(DeinString, ':', 12);
DeinString := '20' + DeinString + ':00';

Sorry, aber ich konnte nicht anders.

[Der schöne Günther]

Wenn dein Format doch so eindeutig (und einfach) ist dann nimm doch einfach reguläre Ausdrücke, die sind in XE7 schon drin.

=> http://docwiki.embarcadero.com/RADSt...Ausdr%C3%BCcke

=> https://www.delphi-treff.de/tutorial...cke-in-delphi/

[t.roller]

@TE: Deine Frage ist verwirrend! Lies sie noch mal AUFMERKSAM durch und ändere sie!

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var dt : TDateTime;
begin // 26.01.2017:09:20:00
dt:= STRTODATETIME('26.01.2017:09:20:00');
caption:= FormatDateTime('YYYYMMDD:hh:nn:ss',dt);
end;

[nahpets]

In Delphi 7 gibt es function StrToDateTime(const S: string; const FormatSettings: TFormatSettings): TDateTime; und function FormatDateTime(const Format: string; DateTime: TDateTime; const FormatSettings: TFormatSettings): string; Also bitte entsprechendes Formatsetting definieren und dann sowas aufrufen:

Delphi-Quellcode:

var
          fs    : TFormatSettings;
          Datum : String;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT,fs);
  // Entsprechend Deinen Anforderungen anpassen!
  fs.ShortDateFormat := 'DDMMYY';
  fs.ShortTimeFormat := 'hh:mm';
...
  Datum := FormatDateTime(StrToDateTime('170126 09:20',fs),'YYYYMMDD');
...

Zitat von Back2Code:

ich habe hier einen DateTime String im Format "JJMMTT" [170126:0920]: welchen ich gerne in folgendes Format "YYYYMMDD" [26.01.2017:09:20:00]

Die verbalen Beschreibungen passen nicht zu den Beispielen.