标签:lc TYPE INTO ENDIF ABAP 分隔符 date 格式 转为
*&---------------------------------------------------------------------* *& Form date_change *&---------------------------------------------------------------------* * 日期转为内部格式 *----------------------------------------------------------------------* FORM date_change CHANGING p_date. 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'. 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
标签:lc,TYPE,INTO,ENDIF,ABAP,分隔符,date,格式,转为 来源: https://www.cnblogs.com/dy-debug/p/16139811.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。