*&---------------------------------------------------------------------*
*& 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
abap 将月份转为日期区间
最新推荐文章于 2023-02-16 09:09:28 发布