水军大提督 发表于 2023-2-4 20:05:07

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.
转换代码如下:

            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            =
                . 

免责声明:如果侵犯了您的权益,请联系站长,我们会及时删除侵权内容,谢谢合作!
页: [1]
查看完整版本: EXCEL中日期对应的数值如何转换为ABAP中的日期