ToB企服应用市场:ToB评测及商务社交产业平台

标题: EXCEL中日期对应的数值如何转换为ABAP中的日期 [打印本页]
作者: 水军大提督    时间: 2023-2-4 20:09
标题: 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.                 .
复制代码
 

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



欢迎光临 ToB企服应用市场:ToB评测及商务社交产业平台 (https://dis.qidao123.com/) Powered by Discuz! X3.4