: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.
EXPORTING
date = begin_date
IMPORTING
week = p_week.
ENDFORM.