ABAP 求上月第一天 最后一天 月份相加减 具体代码

           l_month_end           TYPE p0001-begda,
           l_permonth_dtart      TYPE p0001-begda,
           l_permonth_end        TYPE p0001-begda.

求上月最后一天

 CALL FUNCTION 'FIMA_DATE_CREATE'
    EXPORTING
      i_date                  = pa_date
      i_months                = '-1'
      i_set_last_day_of_month = 'X'
    IMPORTING
      e_date                  = l_permonth_end.

上月第一天

 CONCATENATE l_permonth_end+0(6) '01' INTO l_permonth_start.

本月第一天
  CONCATENATE pa_date+0(6)       '01' INTO l_month_start.

本月最后一天 

 CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
    EXPORTING
      i_date = pa_date
    IMPORTING
      e_date = l_month_end.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/17204926/viewspace-621797/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/17204926/viewspace-621797/