获取N年，N月，N日后或者前的日期函数

*&---------------------------------------------------------------------*
*&      Form  GET_DATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_PDATE  text
*      <--P_P_DATE1  text
*----------------------------------------------------------------------*
FORM get_date  USING    l_date
               CHANGING l_date1.
  CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
    EXPORTING
      date      = l_date
      days      = 0 "天数加N或者减N  不加也不减 写0
      months    = 12  "月份加N或者减N 不加也不减 写0
      signum    = '+' "可以是+或者-
      years     = 0"年份加N或者减N 不加也不减 写0
    IMPORTING
      calc_date = l_date1."得到加减之后的日期

ENDFORM.                    " GET_DATE