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/，如需轉載，請註明出處，否則將追究法律責任。