学步园

 v_date = p_sdate.
  v_count = 1.

  CALL FUNCTION 'HR_99S_INTERVAL_BETWEEN_DATES'
    EXPORTING
      begda     = p_sdate
      endda     = p_edate
      tab_mode  = 'I'
    IMPORTING
      month_tab = i_month_tab.
  IF lines( i_month_tab ) > 0.
    LOOP AT i_month_tab INTO wa_month.
      DO.
        IF v_date LE wa_month-endda AND v_date LE p_edate.
          wa_date-date = v_date.
          wa_date-count = v_count.
          APPEND wa_date TO p_date.
          CLEAR wa_date.

          CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
            EXPORTING
              date      = v_date
              days      = 1
              months    = 0
              years     = 0
            IMPORTING
              calc_date = v_date.

          ADD 1 TO v_count.
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.
    ENDLOOP.
  ENDIF.