Problem mit FormatDateTime

[MechMac666]

Hallo

was stimmt denn mit formatdatetime jetzt nicht?
Das mittlere war nur zum testen, nachdem ich beim dritten verzweifelt bin.

formatdatetime('DD.MM.YYYY',now) liefert 20.03.2021
formatdatetime('DD$MM(YYYY',now) liefert 20$03(2021
formatdatetime('DD/MM/YYYY',now) liefert 20.03.2021

Das dritte benötige ich übrigens.
Oder muss ich jetzt mit stringreplace arbeiten? :?

[DeddyH]

Du kannst als optionalen Parameter eine „Instanz“ von TFormatSettings übergeben, wo dann die gewünschten Trennzeichen definiert wurden.

[edit] Beispiel:

Delphi-Quellcode:

var
  Settings: TFormatSettings;
begin
  Settings := TFormatSettings.Create;
  Settings.DateSeparator := '/';
  ShowMessage(FormatDateTime('dd/mm/yyyy', now, Settings));
end;

[/edit]

[HolgerX]

Hmm..

Mal schnell in der Delphi Hilfe nachgeschaut:

Zitat:

/ Zeigt als Datumstrennzeichen das in der globalen Variable DateSeparator angegebene Zeichen an.

Somit wird auf einem deutschen Windows mit deutschem DateSeparator der '/' gegen '.' getauscht..

Um nun das '/' zu behalten, muss dieses in Anführungszeichen gesetzt werden.

Delphi-Quellcode:

ShowMessage(FormatDateTime('dd"/"mm"/"yyyy', now, Settings));

[himitsu]

Jupp, dafür kannst auch das Settings weglassen, da eh nichts davon verwendet wird.