关于星期(周)的函数 转

FM：GET_WEEK_INFO_BASED_ON_DATE

输入参数 值
DATE 2008.01.09

输出参数 值
WEEK 200802 MONDAY 2008.01.07 SUNDAY 2008.01.13


FM：DAY_IN_WEEK(输入日期是星期几)

输入参数 值
DATUM 2008.01.09

输出参数 值
WOTNR 3

*更多关于Week的函数请看Function Group：CADA

*弹出选择周的对话框

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_week-low.
PERFORM getweek CHANGING s_week-low.

FORM getweek CHANGING p_week .
DATA: begin_date TYPE d .

CALL FUNCTION 'POPUP_CALENDAR_SDB'
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@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/21277275/viewspace-1020084/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/21277275/viewspace-1020084/