与业务约定使用日期格式为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.