add days , weeks, months,years to date

\*---------------------------------------------------------------------------------------\*

\*             report name 

\*---------------------------------------------------------------------------------------* 

REPORT ZTEST .

\*---------------------------------------------------------------------------------------\*

\*              data declarations

\*---------------------------------------------------------------------------------------\*

DATA :I_DATE LIKE SY-DATUM,

DATE LIKE SY-DATUM .

\*---------------------------------------------------------------------------------------\*

\*            start of selection

\*---------------------------------------------------------------------------------------\*

start-of-selection .
\\ {color:#0000ff}\*--here if I_IPRKZ = space it is in days{color}

{color:#0000ff}\* if I_IPRKZ = 1 it is in weeks{color}

{color:#0000ff}\* if I_IPRKZ = 2 it is in months{color}

{color:#0000ff}\* if I_IPRKZ = 3 it is in years{color}

{color:#0000ff}\*--here i\_ time will display the no of weeks or months or yeas{color}

CALL FUNCTION 'ADD_TIME_TO_DATE'

{color:#0000ff}\*----Original date{color}

EXPORTING

I_IDATE = SY-DATUM

{color:#0000ff}\*--\- give the number of days or weeks or months or years to be added{color}

I_TIME = '4'

I_IPRKZ = ' '

IMPORTING

{color:#0000ff}\*---new date{color}

O_IDATE = date .

\*---------------------------------------------------------------------------------------\*

\*             output

\*---------------------------------------------------------------------------------------* 

WRITE:/ DATE .