The last day of each month

 

 

 

 

TABLES : ZFF_SYINGFU .
The PARAMETERS S_RYEAR   the TYPE ZFF_SYINGFU -RYEAR obligatory  the DEFAULT SY -DATUM .
The SELECT-S_MONAT the OPTIONS   the FOR ZFF_SYINGFU -MONAT obligatory .
DATA : FIR_DATA   the TYPE SY -DATUM "Day
DATA : LAS_DATA  the TYPE SY -DATUM " Last day
DATA : LAS_DATA1  the TYPE SY -DATUM "last day
FIR_DATA  = SY -DATUM .
* LAS_DATA = SY-DATUM.
CONCATENATE S_RYEAR S_MONAT -HIGH The INTO LAS_DATA .
FIR_DATA +. 6 ( 2 '01' .                "Month day

LAS_DATA +. 6 ( 2 '28' .               " Command the current date number 28
LAS_DATA   = LAS_DATA +  . 5 .    "Days months at most 31 days, 5 + after next month's certainly one day Mo
LAS_DATA + 6 ( 2 '01' .                "the first day of the next month
LAS_DATA    = LAS_DATA  1 .     " the last day of this month


* WRITE: SY -DATUM, FIR_DATA, LAS_DATA.
* the CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
* EXPORTING
*    I_DATE        =
* IMPORTING
*   E_DATE        =
*          .



*CALL FUNCTION 'LAST_DAY_OF_MONTHS'
*  EXPORTING
*    DAY_IN                  = '20190927'
* IMPORTING
*   LAST_DAY_OF_MONTH       = LAS_DATA1
** EXCEPTIONS
**   DAY_IN_NO_DATE          = 1
**   OTHERS                  = 2
*          .
*IF SY-SUBRC <> 0.
** Implement suitable error handling here
*ENDIF.

WRITE:LAS_DATA1.

Guess you like

Origin www.cnblogs.com/salah/p/11917056.html