日期转sap 封装

Bitter、

于 2022-01-27 11:15:07 发布

阅读量858

点赞数

分类专栏： ABAP 文章标签： sap abap

本文链接：https://blog.csdn.net/qq_44304062/article/details/122714384

版权

ABAP 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

调用

zdate1 = zcl_comm_tools=>conv_xls_date_to_sap( ls_xls-zdate1 ).

IV_DATE	TYPE CLIKE
value( RV_DATE )	TYPE D


METHOD conv_xls_date_to_sap.
  DATA: lv_year TYPE char4,
        lv_mon  TYPE char2,
        lv_day  TYPE char2.
  DATA: lv_spl  TYPE char1.

  IF iv_date IS INITIAL.
    RETURN.
  ENDIF.

  lv_spl = '/'.
  FIND FIRST OCCURRENCE OF lv_spl IN iv_date.
  IF sy-subrc <> 0.
    lv_spl = '-'.
    FIND FIRST OCCURRENCE OF lv_spl IN iv_date.
    IF sy-subrc <> 0.
      lv_spl = '.'.
      FIND FIRST OCCURRENCE OF lv_spl IN iv_date.
      IF sy-subrc <> 0.
        rv_date = iv_date.
        RETURN.
      ENDIF.
    ENDIF.
  ENDIF.

  SPLIT iv_date AT lv_spl INTO lv_year lv_mon lv_day.
  IF strlen( lv_mon ) = 1.
    lv_mon = |0{ lv_mon }|.
  ENDIF.
  IF strlen( lv_day ) = 1.
    lv_day = |0{ lv_day }|.
  ENDIF.

  rv_date = lv_year && lv_mon && lv_day.
ENDMETHOD.