计算年月

 

FUNCTION ZCALDATA.

*"----------------------------------------------------------------------

*"*"Lokale Schnittstelle:

*"  IMPORTING

*"     VALUE(RDATE) TYPE  D

*"     VALUE(STBIS) TYPE  I

*"  EXPORTING

*"     VALUE(CDATE) TYPE  D

*"----------------------------------------------------------------------

  DATA YEAR(4) TYPE N.

  DATA MONTH(2) TYPE N.

  YEAR = RDATE+0(4).

  MONTH = RDATE+4(2).

  YEAR = YEAR + ( STBIS DIV 12 ).

  MONTH = MONTH + STBIS MOD 12.

  IF MONTH > 12.

    YEAR = YEAR + MONTH DIV 12.

    MONTH = MONTH MOD 12.

  ENDIF.

  IF MONTH = 12.

    YEAR = YEAR + 1.

    MONTH = '01'.

  ENDIF.

  CLEAR CDATE.

  CONCATENATE YEAR MONTH '01' INTO CDATE.



ENDFUNCTION.