2010-08-27 103 views
1

我有一個Delphi應用程序,其使用類似於代碼從Excel電子表格中讀取數據如下:奧萊Excel中的Delphi日期問題

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(年/月/日)。但是,返還的價格是09/01/1900,即前一天。爲什麼會發生這種情況,因爲它似乎在1900年以後的其他年份的所有日期都能正常工作?

回答