*&---------------------------------------------------------------------*
*& Form date_change
*&---------------------------------------------------------------------*
* 日期转为内部格式
*----------------------------------------------------------------------*
FORM date_change CHANGING p_date TYPE string.
DATA:
lc_flg TYPE c, "分隔符
lc_1(4) TYPE c, "年
lc_2(2) TYPE c, "月
lc_3(2) TYPE c. "日
* 判断是否有分隔符
IF p_date CN '0987654321'. "p_data必须是字符类型
lc_flg = p_date+4(1).
ELSE.
RETURN. "没有分隔符直接结束
ENDIF.
* 按分隔符拆分年月日
SPLIT p_date AT lc_flg INTO lc_1 lc_2 lc_3.
* 判断月日长度，只有一位补零
IF STRLEN( lc_2 ) = 1.
CONCATENATE '0' lc_2 INTO lc_2.
ENDIF.
IF STRLEN( lc_3 ) = 1.
CONCATENATE '0' lc_3 INTO lc_3.
ENDIF.
"日期转换成系统格式（纯数字）
CONCATENATE lc_1 lc_2 lc_3 INTO p_date.
ENDFORM. "date_change
【推荐】国内首个AI IDE，深度理解中文开发场景，立即下载体验Trae
【推荐】编程新体验，更懂你的AI，立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包，你的智能百科全书，全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell：AI 加持，快人一步
· 被坑几百块钱后，我竟然真的恢复了删除的微信聊天记录！
· 【自荐】一款简洁、开源的在线白板工具 Drawnix
· 没有Manus邀请码？试试免邀请码的MGX或者开源的OpenManus吧
· 园子的第一款AI主题卫衣上架——"HELLO! HOW CAN I ASSIST YOU TODAY
· 无需6万激活码！GitHub神秘组织3小时极速复刻Manus，手把手教你使用OpenManus搭建本