Question

abap当月的第几周该如何写代码？好像只有当年第几周的函数

Answer 1

REPORT  WEEKOFMONTH.
  DATA: p_date1 LIKE sy-datum,
        p_num type i,
        input_week LIKE scal-week,
        firstday_week like scal-week.
  PARAMETERS p_date like sy-datum DEFAULT sy-datum.
  CONCATENATE p_date+0(6) '01' INTO p_date1.
*BREAK-POINT.
 CALL FUNCTION 'DATE_GET_WEEK'
   EXPORTING
     DATE               = p_date
  IMPORTING
    WEEK               = input_week.

  CALL FUNCTION 'DATE_GET_WEEK'
   EXPORTING
     DATE               = p_date1
  IMPORTING
    WEEK               = firstday_week.

    p_num = input_week+4(2) - firstday_week+4(2) + 1.
    write p_num.

这个你看看吧。

追问

如何实现选择期间为20130901-20130930 显示第35周36周，。。。到40周呢提示9月1为第35周，930为第40周？目的根据周汇总订单数量而订单数量是按日期来的。求解！

追答

...

Answer 2

刚刚写完，程序猿赚分不容易，求加分。

FORM gain_number_of_week USING p_datum TYPE sy-datum CHANGING p_num TYPE i.
  DATA: p_date1 LIKE sy-datum,
        p_date2 LIKE sy-datum,
        current_week LIKE scal-week,
        previous_week LIKE scal-week.
        
  CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE'
    EXPORTING
      date   = p_datum
    IMPORTING
      week   = current_week
      monday = p_date1
      sunday = p_date2.
  IF p_date1+4(2) <> p_date2+4(2).
    p_num = 1.
  ELSE.
    WHILE p_date1+4(2) = p_date2+4(2).
      p_datum = p_datum - 7.
      CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE'
        EXPORTING
          date   = p_datum
        IMPORTING
          week   = previous_week
          monday = p_date1
          sunday = p_date2.
    ENDWHILE.
    p_num = current_week - previous_week + 1.
  ENDIF.
ENDFORM.

追问

如何实现选择期间为20130901-20130930 显示第35周36周，。。。到40周呢提示9月1为第35周，930为第40周？目的根据周汇总订单数量而订单数量是按日期来的。求解！

Answer 3

先写好每年的第几周是每月的第几周的对应关系，然后根据当年第几周，自然就知道是当月第几周啦。