delphi - Ole Excel Delphi 日期问题

Question

我有一个 Delphi 应用程序，它使用类似于以下的代码从 Excel 电子表格读取数据:

procedure TForm1.Button1Click(Sender: TObject);
var
  xlApp, xlWorkBook, xlWorkSheet, arr: Variant;
begin
  xlApp := CreateOLEObject('Excel.Application');
  xlApp.Visible := False;

  xlWorkBook := xlApp.Workbooks.Open('C:\Temp\Book1.xlsx');
  xlWorkSheet := xlApp.WorkSheets[1];
  arr := xlWorksheet.Range['E2:E2'].Value;
  xlApp.Quit;
end;

存储在电子表格中单元格 E2:E2 中的值为 10/01/1900 (dd/mm/yyyy)。但是，返回的值是 09/01/1900，即前一天。为什么会发生这种情况，而它似乎对于 1900 年以来的其他年份的所有日期都可以正常工作？

Answer 1

Pete，这个问题是excel的一个老bug，因为excel错误地假设1900年是闰年。因此 01-01-1900 和 29-02-1900 之间的所有日期都会受到此错误的影响。

查看这些链接以获取更多信息

• Dates And Times In Excel
• Excel 2000 incorrectly assumes that the year 1900 is a leap year
• http://www.inc.com/magazine/20080701/how-hard-could-it-be-glory-days.html