SAP abap 日期格式解析

最新推荐文章于 2024-03-16 23:33:17 发布

Qunending

最新推荐文章于 2024-03-16 23:33:17 发布

阅读量2.2k

点赞数

分类专栏： ABAP随笔

本文链接：https://blog.csdn.net/Qunending/article/details/106918808

版权

ABAP随笔专栏收录该内容

74 篇文章 50 订阅

订阅专栏

与业务约定使用日期格式为2020/6/23或2020-6-23。将该格式日期转化为8为纯数字

  DATA LV_NIAN TYPE C LENGTH 4 .
  DATA LV_YUE  TYPE C LENGTH 2 .
  DATA LV_RI   TYPE C LENGTH 2 .
  LOOP AT IT_EXCEL.
        IF IT_EXCEL-VALUE IS NOT INITIAL.
          SEARCH IT_EXCEL-VALUE FOR '/'.
          IF SY-SUBRC <> 0.
            SEARCH IT_EXCEL-VALUE FOR '-'.
            IF SY-SUBRC <> 0.
              GS_MATERIAL-ZRETU = '日期格式应该为YYYY/MM/DD或者YYYY-MM-DD' .
            ELSE .
              SPLIT IT_EXCEL-VALUE AT '-' INTO LV_NIAN LV_YUE LV_RI .
              IF STRLEN( LV_YUE ) = 1.
                LV_YUE = '0' && LV_YUE .
              ENDIF.
              IF STRLEN( LV_RI ) = 1.
                LV_YUE = '0' && LV_YUE .
              ENDIF.
              IT_EXCEL-VALUE = LV_NIAN && LV_YUE && LV_RI .
            ENDIF.
          ELSE .
            SPLIT IT_EXCEL-VALUE AT '/' INTO LV_NIAN LV_YUE LV_RI .
            IF STRLEN( LV_YUE ) = 1.
              LV_YUE = '0' && LV_YUE .
            ENDIF.
            IF STRLEN( LV_RI ) = 1.
              LV_YUE = '0' && LV_YUE .
            ENDIF.
            IT_EXCEL-VALUE = LV_NIAN && LV_YUE && LV_RI .
          ENDIF.
        ENDIF.
  ENDLOOP.