Datum convert error

[DeddyH]

Habe da mal eine etwas umständliche Lösung, die dafür aber unabhängig von den Windows-Einstellungen sein sollte.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var aDate: TDate;
    aY,aM,aD: Word;
    s: string;
begin
  s := '05.12.2007';
  aD := StrToInt(Copy(s,1,Pos('.',s) - 1));
  Delete(s,1,Pos('.',s));
  aM := StrToInt(Copy(s,1,Pos('.',s) - 1));
  Delete(s,1,Pos('.',s));
  aY := StrToInt(s);
  aDate := EncodeDate(aY,aM,aD);
  ShowMessage(FormatDateTime('dd.MM.yyyy',aDate));
end;