Adding months to date

Question

I need to add 6 months to current date. Also, may be days or years also. Can anyone let me know is there any function module which can be used to achieve the functionality.

Answer 1

Hi jimmy,
here is the code for FM "MONTH_PLUS_DETERMINE".
========================================================
FUNCTION MONTH_PLUS_DETERMINE.
*"Lokale Schnittstelle:
*"       IMPORTING
*"             MONTHS
*"             OLDDATE LIKE SY-DATUM
*"       EXPORTING
*"             NEWDATE LIKE SY-DATUM
  DATA:       BEGIN OF DAT,
              JJJJ(4) ,
              MM(2) ,
              TT(2) ,
              END OF DAT,
              BEGIN OF HDAT,
              JJJJ(4) ,
              MM(2) ,
              TT(2) ,
              END OF HDAT,
              NEWMM TYPE P,
              DIFFJJJJ TYPE P.
  WRITE:  OLDDATE+0(4) TO DAT-JJJJ,
          OLDDATE+4(2) TO  DAT-MM,
          OLDDATE+6(2) TO  DAT-TT.
  DIFFJJJJ =   ( DAT-MM + MONTHS - 1 ) DIV 12.
  NEWMM    =   ( DAT-MM + MONTHS - 1 ) MOD 12 + 1.
  DAT-JJJJ = DAT-JJJJ +  DIFFJJJJ.
  IF NEWMM < 10.
    WRITE '0' TO  DAT-MM+0(1).
    WRITE NEWMM TO  DAT-MM+1(1).
  ELSE.
    WRITE NEWMM TO  DAT-MM.
  ENDIF.
  IF DAT-TT > '28'.
    HDAT-TT = '01'.
    NEWMM   = ( DAT-MM  )  MOD 12 + 1.
    HDAT-JJJJ = DAT-JJJJ + ( (  DAT-MM ) DIV 12 ).
    IF NEWMM < 10.
      WRITE '0' TO HDAT-MM+0(1).
      WRITE NEWMM TO HDAT-MM+1(1).
    ELSE.
      WRITE NEWMM TO HDAT-MM.
    ENDIF.
    IF DAT-TT = '31'.
      NEWDATE = HDAT.
      NEWDATE = NEWDATE - 1.
    ELSE.
      IF DAT-MM = '02'.
        NEWDATE = HDAT.
        NEWDATE = NEWDATE - 1.
      ELSE.
        NEWDATE = DAT.
      ENDIF.
    ENDIF.
  ELSE.
    NEWDATE = DAT.
  ENDIF.
ENDFUNCTION.
=========================================================