ABAP：计算某一天的当月的最后一天

计算某一天的当月的最后一天

 REPORT  ZCALDATE                                .
DATA: lv_datum LIKE sy-datum,
      lv_end_datume TYPE VTBBEWE-DVALUT.

lv_datum = sy-datum.
CALL FUNCTION 'FIMA_DATE_CREATE'
  EXPORTING
    I_DATE                        = lv_datum
*   I_FLG_END_OF_MONTH            = ' '
*   I_YEARS                       = 0
*   I_MONTHS                      = 0
*   I_DAYS                        = 0
    I_CALENDAR_DAYS               = 0
    I_SET_LAST_DAY_OF_MONTH       = 'X'
  IMPORTING
    E_DATE                        = lv_end_datume
*   E_FLG_END_OF_MONTH            =
*   E_DAYS_OF_I_DATE              =
          .
WRITE / lv_end_datume.