FM：GET_WEEK_INFO_BASED_ON_DATE
输入参数 值
DATE 2008.01.09
输出参数 值
WEEK 200802 <----2008年第二周
MONDAY 2008.01.07 <----这个周周一的日期
SUNDAY 2008.01.13 <----周日的日期
FM：DAY_IN_WEEK(输入日期是星期几)
输入参数 值
DATUM 2008.01.09
输出参数 值
WOTNR 3 <----2008-1-9为周三
*更多关于Week的函数请看Function Group：CADA
*弹出选择周的对话框
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_week-low.
PERFORM getweek CHANGING s_week-low.
PERFORM getweek CHANGING s_week-low.
FORM getweek CHANGING p_week .
DATA: begin_date TYPE d .
DATA: begin_date TYPE d .
CALL FUNCTION 'POPUP_CALENDAR_SDB'
EXPORTING
sel_week = 'X'
focus_day = sy-datum
IMPORTING
begin_date = begin_date.
EXPORTING
sel_week = 'X'
focus_day = sy-datum
IMPORTING
begin_date = begin_date.
CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE'
EXPORTING
date = begin_date
IMPORTING
week = p_week.
ENDFORM.
[@more@]
EXPORTING
date = begin_date
IMPORTING
week = p_week.
ENDFORM.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/21277275/viewspace-1020084/ ，如需转载，请注明出处，否则将追究法律责任。
下一篇：
ABAP常用函数集锦 转
请登录后发表评论
登录
全部评论
