ABAP日期处理

灰太狼 2022-03-15 09:26 196阅读 0赞

EXCEL 为 2019/1/26

处理后： 2019/01/26

DATA:gt\_day TYPE TABLE OF char10,  
       wa\_day TYPE char10.  
  DATA:day\_01 TYPE sy-datum,  
       datfm  TYPE c,  
       nian   TYPE char4,  
       yue    TYPE char2,  
       ri     TYPE char2.

LOOP AT lt\_data.  
    CASE  lt\_data-col.  
      WHEN 2.  
        gs\_out-zlc = lt\_data-value."楼层  
      WHEN 3.

WHEN 3.  
        SEARCH lt\_data-value FOR '/'.  "如果直接是20190226这样的格式则不用转换  
        IF sy-subrc = 0.  
          SPLIT lt\_data-value AT '/' INTO TABLE gt\_day.  
          LOOP AT gt\_day INTO wa\_day.  
            IF sy-tabix = 1.  
              nian = wa\_day.  
            ELSEIF sy-tabix = 2.  
              CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
                EXPORTING  
                  input  = wa\_day  
                IMPORTING  
                  output = yue.  
            ELSEIF sy-tabix = 3.  
              CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
                EXPORTING  
                  input  = wa\_day  
                IMPORTING  
                  output = ri.  
            ENDIF.  
          ENDLOOP.  
        ENDIF .

gs\_out-erdat = nian && yue && ri."日期

SPLIT lt\_data-value AT '/' INTO TABLE gt\_day.

这句话得结果得到三行

2019

下面这个函数是根据定义的长度补0

CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT'