String aus Excel in ein Datum umwandeln

[Ayumi]

Hallo,

ich importiere Daten aus einer Excel-Tabelle in ein Memofeld. Jetzt habe ich folgendes Problem. Meine Datumszelle hat in Excel die Formatierung Benutzerdefiniert (im Format MMM JJ). Wenn ich die Zelle in eine Standardzelle umwandele, steht anstatt Sep 04 = 1706 da. (weiter Beispiele Sep 03 = 1340, Okt 04 = 1736, Nov 04 = 1767) Wenn ich jetzt mein Datumswert als String auslese, dann gibt er mir natürlich diese Zahl an. Wie kann ich diese Zahl in Delphi wieder in ein Datum umwandeln???
Ich habe schon in der Delphihilfe gesucht aber nichts Passendes gefunden.

Vielen Dank im Voraus
Ayumi

[marabu]

Hallo Ayumi,

sieht so aus, als ob deinen Datumswerten ein Datumssystem 2000 zugrunde liegt - alles bezieht sich auf den 1. Jan 2000. Du musst dir einfach dieses Datum als Referenzdatum zurechtlegen und dann geht das:

Delphi-Quellcode:

function ExcelToDelphiDate(ExcelDate: integer): TDate;
var
  dRef: TDate;
begin
  Result := EncodeDate(2000, 1, 1);
  Result := Result + Pred(ExcelDate);
end;

Grüße vom marabu

[Ayumi]

vielen dank für deine Hilfe.

So funktioniert es. :P