StrToDatetime - nicht nach Regionaleinstellungen

[Robert_G]

Ich habe ein Problem mit Datumsumwandlungen.
Das Datum hat folgendes Format 'DD.MM.YYYY" - "hh:nn:ss'.
Ich habe kein Problem aus einem Datum einen so formatierten String zu extrahieren, aber andersherum funktioniert es nicht. :wall:

In Oracle (klappt in beide Richtungen):

SQL-Code:

  DT := to_date('01.01.2000 - 12:34:33', 'DD.MM.YYYY - HH24:MI:SS');
  CHR := to_char(DT, 'DD.MM.YYYY - HH24:MI:SS');

Mein Versuch in Delphi:

Delphi-Quellcode:

VAR
  DTFormat  :TFormatSettings;
  CacheStr  :string;
Begin
  CacheStr := '01.01.2000 - 12:34:33';
  DTFormat.DateSeparator := '.';
  DTFormat.TimeSeparator := ':';
  DTFormat.LongDateFormat := 'dd.mm.yyyy'' - ''hh:nn:ss';
  ExpHrPick.DateTime := StrToDatetime(CacheStr, DTFormat);
END;

Was mache ich falsch?
Gibt in Delphi eine Funktion, der ich das Format direkt übergeben kann (wie im oberen Bsp. ohne die regional Settings von Windows zu benutzen). :?:
Thx im voraus...

[Sanchez]

Hallo,

Die OH hilft:

Zitat:

Zitat von D6 Onlinehilfe

FormatDateTime (Funktion)

FormatDateTime formatiert einen Wert des Typs TDateTime.

Unit

SysUtils

Kategorie

Datum und Uhrzeit

function FormatDateTime(const Format: string; DateTime: TDateTime): string;

Beschreibung

FormatDateTime formatiert einen Wert des Typs TDateTime (DateTime). Dabei wird das mit Format angegebenen Format verwendet. Weitere Informationen hierzu finden Sie unter Datums- und Zeitformat-Strings for more information.

Wird im Parameter Format ein leerer String übergeben, wird der Wert des Typs TDateTime entsprechend dem Formatbezeichner 'c' formatiert.

grüße, daniel

[Robert_G]

Sorry habe mich wohl nicht verständlich ausgedrückt.
Ich habe einen String und will ihn zu TDateTime konvertieren.

[Sanchez]

So im nachhineien betrachtet war die Frage gar nich so unmissverständlich :oops:

Aber so sollte es (denke ich) gehen.

Delphi-Quellcode:

VAR CacheStr  :string;
Begin
  CacheStr := '01.01.2000 12:34:33';
  DateSeparator := '.';
  TimeSeparator := ':';
  ShortDateFormat := 'dd.mm.yyyy';  
  LongTimeFormat := 'hh:nn:ss';  
  ExpHrPick.DateTime := StrToDatetime(CacheStr);
END;

Ich hab in deinem String zwischen Datum und Uhrzeit den Bindestrich entfernt. Wie man den einstellt weiss ich net.

[r_kerber]

Hallo GeorgeWNewbie,

ich vermute mal, das in den String kein - reingehört. Weitere Vermutung mit LongDateFormat setzt Du nur das lange Datumsformat. Das Format für die Zeit interessiert in diesem Zusammenhang nicht. Und bei TFormatSettings gibt es IMHO kein LongDateTimeFormat.

[Robert_G]

@Sanchez
Danke, muss ich also doch vor der Konvertierung am Ursprungs-String rumbasteln. :evil:

Erstaunlicherweise hatte ich bis jetzt noch keine Konfrontation mit Datumswerten in Delphi gehabt.

Wenn einer von euch eine Funktion kennt, mit der man einfach nur ein Datum nach einem frei definierbaren Format bekommen kann, bitte posten.

Nachtrag:
Der String kommt von einer anderen Anwendung und enthält den " - ".
Anscheinend wird Zeit & Datum in Delphi getrennt behandelt (bis auf TDateTime)