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

matinal

发布于 2023-10-13 16:59:29

25300

代码可运行

文章被收录于专栏：SAP TechnicalSAP Technical

运行总次数：0

代码可运行

在开发批导程序时会从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.

转换代码如下：

DATA days TYPE i.
              IF cell_content > 59.
                days = cell_content - 1.
              ELSE.
                days = cell_content.
              ENDIF.

              CALL FUNCTION 'FIMA_DATE_CREATE'
                EXPORTING
                  i_date          = '18991231'
*                 I_FLG_END_OF_MONTH            = ' '
*                 I_YEARS         = 0
*                 I_MONTHS        = 0
*                 I_DAYS          = 0
                  i_calendar_days = days
*                 I_SET_LAST_DAY_OF_MONTH       = ' '
                IMPORTING
                  e_date          = <any>
*                 E_FLG_END_OF_MONTH            =
*                 E_DAYS_OF_I_DATE              =
                .

本文参与腾讯云自媒体同步曝光计划，分享自作者个人站点/博客。

原始发表：2023-07-12，如有侵权请联系 cloudcommunity@tencent.com 删除

abap