Suma y Resta fechas

*&---------------------------------------------------------------------*

*&      Form  MFECH

*&---------------------------------------------------------------------*

*       Suma y Resta fechas.

*----------------------------------------------------------------------*

*      -->P_FECHA    Fecha Pivote

*      -->DAY        Número de Días

*      -->MONTH      Número de Meses

*      -->YEAR       Número de Años

*      -->OPERACION  Suma o Resta [+ ó -]

*----------------------------------------------------------------------*

FORM MFECH USING  P_FECHA DAY MONTH YEAR OPERACION.

  DATA: L_FECHA LIKE SY-DATUM.

  CALL FUNCTION 'J_1H_CAL_DATE_IN_INTERVAL'

    EXPORTING

      DATE      = P_FECHA

      DAYS      = DAY

      MONTHS    = MONTH

      SIGNUM    = OPERACION  "'+ Ó -'

      YEARS     = YEAR

    IMPORTING

      CALC_DATE = L_FECHA.

  MOVE L_FECHA TO P_FECHA.

ENDFORM.                    "MFECH

*----------------------------------------------------------------------*