ITPub博客

首页 > Linux操作系统 > Linux操作系统 > ABAP 求上月第一天 最后一天 月份相加减 具体代码

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

原创 Linux操作系统 作者:SAP骑士 时间:2009-12-07 10:23:52 0 删除 编辑

           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博客 ” ,链接:https://blog.itpub.net/17204926/viewspace-621797/ ,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2009-01-01

  • 博文量
    59
  • 访问量
    343514