String aus Excel in ein Datum umwandeln

[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