datumskonvertierung

[day]

Hallo

Ich suche eine Funktion, mit der ich ein Eingegebenes Datum (z.b mm/dd yyyy) in ein anderes Format (mm.dd.yyyy) umwandeln kann.
Das eingegebene datum kann je nach regional settings varieren. Die funktion sollte entsprechend flexibel sein.

Kennt jemand eine solche funktion?

[Matze]

Dies sollte helfen: FormatDateTime FormatDateTime

[day]

hallo
danke für die Antwort.
allerdings geht es mit dieser funktion nicht. Da die eingabe z.B. auch folgendermassen aussehen könnte
(dd-MMM-yy) 12-Jan-05 . Dies kann dann nicht mehr konvertiert werden, da TDateTime einem anderen Format entspricht.

[Luckie]

Dann guck mal etws weiter in der Hilfe nach. EncodeDate und DecodeDate werden bestimmt auch aufgeführt, wenn du FormatDateTime in der Hilfe gefunden hast.

[day]

Hallo
Mit diesen funktion lassen sich aber ebenfalls nur einfache Datumformate konvertieren. ein datum wie folgendes
"12-Jan-05"lässt sich nicht konvertieren.

[day]

so wie es ausschaut ist es tatsächlich nicht möglich eine Eingabe von 12/Januar 2005 in ein TDate zu konvertieren. Ist echt schade :|

[Sprint]

Zitat:

Zitat von day

Mit diesen funktion lassen sich aber ebenfalls nur einfache Datumformate konvertieren. ein datum wie folgendes
"12-Jan-05"lässt sich nicht konvertieren.

Zitat:

Zitat von day

so wie es ausschaut ist es tatsächlich nicht möglich eine Eingabe von 12/Januar 2005 in ein TDate zu konvertieren. Ist echt schade

Natürlich ist das möglich. StrToDate mit TFormatSettings benutzen. DateSeparator und ShortMonthNames richtig setzen.
Delphi Hilfe lesen und ausprobieren!!!

[DP-Maintenance]

Dieses Thema wurde von "Christian Seehase" von "Windows API" nach "Object-Pascal / Delphi-Language" verschoben.
Kein Problem für die Windows-API

[Airblader]

Möglich ist es einerwegs.

Im Notfall kann man sich mit Pos,Delete,Copy,... usw. usf. auch eine Funktion basteln.

air

[Sprint]

Zitat:

Zitat von day

Das eingegebene datum kann je nach regional settings varieren. Die funktion sollte entsprechend flexibel sein.

Zitat:

Zitat von Airblader

Im Notfall kann man sich mit Pos,Delete,Copy,... usw. usf. auch eine Funktion basteln.

Warum sollte man das tun? Es gibt doch schon eine.

[Airblader]

@sprint

ich wollte nur die aussage "es is nich möglich" widerlegen ;)

air

[Sprint]

Zitat:

Zitat von Airblader

ich wollte nur die aussage "es is nich möglich" widerlegen

Sorry. Da habe ich dich wohl falsch verstanden.

[day]

Also ich habe folgende kleine Test durchgeführt welche bei mir nicht funktionierten. Da es ja gehen soll könnt ihr mir sicher sagen was ich falsch mache!?


Als Datum habe ich folgendes im Edit feld eingegeben : 25/01 2005
beim konvertieren trat eine exception auf, dass es kein gültiges format ist.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Date : TDateTime;
begin

  ShortDateFormat := 'TT/MM JJJJ'; //Format: Usbekisch (lateinisch)
  Date :=  StrToDate ( Edit1.Text );

end;

2.Test
Als Datum habe ich folgendes eingegeben: 25.Jan.2005 (beispiel aus Windows RegionalSettings)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Date : TDateTime;
begin
  DateSeparator := '.';
  ShortDateFormat := 'TT.MMM.JJJJ'; // Format: Deutsch (monat ist als Text)
  Date :=  StrToDate ( Edit1.Text );

end;

Aber auch dieses Datum konnte nicht konvertiert werden.

Die ShortMonthNames habe ich überprüft, die sind alle richtig gesetzt.