ABAP CALL FUNCTION 'DATE_GET_MONTH_LASTDAY' 取每月最后一天 'DATE_GET_WEEK'取周

          * Fiscal Year
        PARAMETERS p_gjahr TYPE bkpf-gjahr OBLIGATORY VALUE CHECK.

         DATA lv_monat(2)    TYPE c.                      "month

         DATA lv_fs_date         TYPE sy-datum.

        DATA lv_ls_date         TYPE sy-datum.

CONCATENATE p_gjahr lv_monat '01' INTO lv_fs_date.

      一、  取每月最后一天
        CALL FUNCTION 'DATE_GET_MONTH_LASTDAY'
          EXPORTING
            i_date = lv_fs_date
          IMPORTING
            e_date = lv_ls_date.
        lv_gl_data-day   = lv_ls_date+6(2).

     二、 从日期取周

        CALL FUNCTION 'DATE_GET_WEEK'
      EXPORTING
        DATE         = LV_DATE
      IMPORTING
        WEEK         = LV_WEEK
      EXCEPTIONS
        DATE_INVALID = 1
        OTHERS       = 2.