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