ABAP - Add, Substract Days Or Months Or Years To A Date

REPORT zdates.

parameters:p_date type sy-datum ,
p_days type T5A4A-DLYDY,
p_month type T5A4A-DLYMO,
p_year type T5A4A-DLYYR .
skip.

parameters:add type T5A4A-SPLIT radiobutton group g1 ,
sub type T5A4A-SPLIT radiobutton group g1.


data: calc_date type sy-datum,
days type T5A4A-DLYDY,
months type T5A4A-DLYMO,
years type T5A4A-DLYYR ,
sign type T5A4A-SPLIT .

if add = 'X'.
sign = '+'.
else.
sign = '-'.
endif .

CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
EXPORTING
date = p_date
days = p_days
months = p_month
SIGNUM = sign
years = p_year
IMPORTING
CALC_DATE = CALC_DATE
.


write:/ calc_date .