计算某一天的当月的最后一天
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.