EXCEL中日期对应的数值如何转换为ABAP中的日期

在开发批导程序时会从Excel中获取数据，但有些获取Excel内容的方法获取到的日期是其对应的数字

原来Excel在本质上是将日期和时间的存储为一个数字的.
默认情况下，Excel把1900-1-1 0:00:00存储为1，把1900-1-1 0:00:00以后的每一个时刻存储为该时刻与1900-1-1 0:00:00这个时刻的差值（以天为单位）。
比如在日期时间1900-1-2 13:00在Excel中对应的数字值是2.54166666666667。
将日期所在单元格的格式改为数值就可以查看日期对应的数值。
如何将Excel中的日期时间对应的数值转换为ABAP的日期和时间呢？

由于Excel中将1900-1-1 0:00:00设置为1，而不是设置为0.这样就需要ABAP这边从1899-12-31加上excel中的日期对应的数字来获取相应的SAP中日期。
但是仔细研究发现Excel中存在日期1900-02-29，而SAP中没有这个日期。由于1900年不是闰年，所以不应该有2月29日。
据说这是一个bug，但微软声称修改这个错误带来的坏处要比好处多，所以一直没有修复。
试用EXCEL期间发现，1900年2月29号被判断为正确日期，导致日期转化的时候差一天 - Microsoft Community
所以当Excel中的日期对应的数值大于59时，应该减去1.
转换代码如下：

1.               DATA days TYPE i.
2.               IF cell_content > 59.
3.                 days = cell_content - 1.
4.               ELSE.
5.                 days = cell_content.
6.               ENDIF.
8.               CALL FUNCTION 'FIMA_DATE_CREATE'
9.                 EXPORTING
10.                   i_date          = '18991231'
11. *                 I_FLG_END_OF_MONTH            = ' '
12. *                 I_YEARS         = 0
13. *                 I_MONTHS        = 0
14. *                 I_DAYS          = 0
15.                   i_calendar_days = days
16. *                 I_SET_LAST_DAY_OF_MONTH       = ' '
17.                 IMPORTING
18.                   e_date          = <any>
19. *                 E_FLG_END_OF_MONTH            =
20. *                 E_DAYS_OF_I_DATE              =
21.                 .

复制代码

 

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！