abap 将月份转为日期区间

*&---------------------------------------------------------------------*
*&      Form  GET_DATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM GET_DATA.
  "设置查询日期
  DATA D1 TYPE D. "月第一天
  DATA D2 TYPE D. "月最后一天
  IF P_GJAHR = ''.
    IF P_MONAT <> ''.
      MESSAGE  '输入月份时请输入年份！' TYPE 'E'.
    ENDIF.
    RETURN.
  ENDIF.

  D1+0(4) = P_GJAHR.
  D1+6(2) = '01'.
  D2 = D1.

  "月份为空查整年月份有值查整月
  IF P_MONAT = ''.
    D1+4(2) = '01'.
    D2+4(2) = '12'.
  ELSE.
    D1+4(2) = P_MONAT.
    D2+4(2) = P_MONAT.
  ENDIF.

  IF D2+4(2) = '12'.
    D2+0(4) = D2+0(4) + 1.
    D2+4(4) = '0101'.
  ELSE.
    D2+4(2) = D2+4(2) + 1.
    D2+6(2) = '01'.
  ENDIF.

  D2 = D2 - 1.

  MOVE: 'I' TO S_DATE-SIGN,
        'BT'  TO S_DATE-OPTION,
        D1    TO S_DATE-LOW,
        D2    TO S_DATE-HIGH.
  APPEND S_DATE.
ENDFORM.                    "GET_DATA