使用OfficeXML4D库设置Excel日期单元格时年份异常的问题咨询

问题现象 #

使用OfficeXML4D库执行Sheet.Cell['F2'].AsDateTime := Now;后，Excel显示日期为2096-05-20，而非预期的2026-05-20。查看SetAsDateTime的实现代码：

procedure TExcelCell.SetAsDateTime(const Value: TDateTime);
begin
  FDateTimeValue := Value;
  FFloatValue := Value + ExcelDateOffset;
  FCellType := TCellType.DateTime;
end;

移除ExcelDateOffset后，日期显示恢复正常。

问题根源 #

这是Delphi TDateTime与Excel日期存储规则的基准差异，加上库中ExcelDateOffset处理逻辑错误导致的：

• Delphi的TDateTime以1899年12月30日为基准，数值1代表一整天，Now()返回的是从该基准日到当前的天数。
• Excel的日期序列号以1900年1月1日为基准，还因历史bug误将1900年判定为闰年，导致序列号比实际多1天。正常情况下，Delphi转Excel日期需要的偏移量应为2天（1899-12-30到1900-1-1的天数差）。

你遇到的问题明显是ExcelDateOffset的数值设置错误（比如误设为70年对应的25569天左右），加上这个偏移后直接把日期往后推了70年，才出现2096年的错误结果。

关于移除该行代码的可行性 #

可以直接移除FFloatValue := Value + ExcelDateOffset;中的+ ExcelDateOffset部分，但要注意两个关键点：

1. 多测试不同日期场景：比如设置1900年之前的日期、闰年日期，确认Excel显示均正常。
2. 同步检查日期读取逻辑：如果库中读取Excel日期到TDateTime时也用到了ExcelDateOffset，那读取逻辑也需要对应调整，否则读取时会出现反向错误。

如果确认是ExcelDateOffset本身定义错误，移除偏移是最直接的修复方式；如果只是逻辑搞反（应该是减偏移而非加），也可以改成Value - ExcelDateOffset，但前提是要先确认偏移量的正确数值。

内容的提问来源于stack exchange，提问作者Carlos Matos