datumskonvertierung

[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.