按照工厂日历的日期计算

转摘自老白

REPORT  z_barry_test NO STANDARD PAGE HEADING .

PARAMETERS: date1 LIKE sy-datum DEFAULT '20081016',
            date2 LIKE sy-datum DEFAULT '20081017',
            p_cal LIKE tfacd-ident DEFAULT 'CN' .
DATA: days TYPE i.

PERFORM. get_work_days  USING date1 date2 days p_cal.
WRITE : date1, date2, days.

PERFORM. add_workingday USING date1 days p_cal date2.
WRITE : / date1, date2, days.

*&---------------------------------------------------------------------*
*&      Form  add_workingday
*&---------------------------------------------------------------------*
*  根据工厂日历添加正负N天获得新日期
*----------------------------------------------------------------------*
FORM. add_workingday USING value(p_date1) p_days p_cal p_date2.
  DATA: return LIKE sy-subrc .
  IF p_days <> 0 .
    CALL FUNCTION 'BKK_ADD_WORKINGDAY'
      EXPORTING
        i_date      = p_date1
        i_days      = p_days
        i_calendar1 = p_cal
      IMPORTING
        e_date      = p_date2
        e_return    = return.
  ELSE.
    p_date2 = p_date1 .
  ENDIF.
ENDFORM.                    "add_workingday

*&---------------------------------------------------------------------*
*&      Form  get_work_days
*&---------------------------------------------------------------------*
*  根据工厂日历计算两个日期间的工作日(包含起始、结束日期)
*----------------------------------------------------------------------*
FORM. get_work_days USING value(p_date1) value(p_date2) p_days p_cal.
  DATA: no_workingday,holiday.
  p_date1 = p_date1 - 1 .
  WHILE p_date1 < p_date2.
    p_date1 = p_date1 + 1.
    CALL FUNCTION 'BKK_CHECK_HOLIDAY'
      EXPORTING
        i_date            = p_date1
        i_calendar1       = p_cal
      IMPORTING
        e_x_no_workingday = no_workingday
        e_x_is_holiday    = holiday
      EXCEPTIONS
        not_found         = 1
        calendar_error    = 2
        OTHERS            = 3.
    IF no_workingday <> 'X'.
      p_days = p_days + 1.
    ENDIF.
  ENDWHILE.
ENDFORM.                    "get_work_days

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

转载于:http://blog.itpub.net/22367662/viewspace-671239/