ABAP-获取某月最后一天函数 

 1 "定义变量
 2 DATA:lv_begin TYPE vtbbewe-dvalut,
 3      lv_end   TYPE vtbbewe-dvalut.
 4 
 5 "获取月份
 6 SELECT SINGLE mnr
 7   INTO @DATA(lv_mnr)
 8   FROM t247
 9   WHERE spras = @sy-langu
10   AND mnr IN @s_monat.
11 
12 "拼接年月日
13 CONCATENATE s_gjahr-low lv_mnr '01' INTO lv_begin.
14 
15 "获取最后一天
16 CALL FUNCTION 'LAST_DAY_OF_MONTHS'
17   EXPORTING
18     day_in            = lv_begin
19   IMPORTING
20     last_day_of_month = lv_end
21   EXCEPTIONS
22     day_in_no_date    = 1
23     OTHERS            = 2.
posted @ 2022-09-29 10:25  TigerMan  阅读(1031)  评论(0)  编辑  收藏  举报