ABAP 获取日期范围月份清单

原创已于 2024-12-13 08:29:24 修改 · 842 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#日期范围月份个数

于 2022-07-06 17:15:49 首次发布

10.Abap 专栏收录该内容

57 篇文章

订阅专栏

REPORT Y_ABC_TEST2.

TABLES VBAK.


DATA: BEGIN OF GT_GMOON1 OCCURS 0,
  ZMOON TYPE CHAR6,
  END OF GT_GMOON1.

SELECT-OPTIONS S_ERDAT FOR VBAK-ERDAT.

START-OF-SELECTION.

  READ TABLE S_ERDAT INDEX 1.

  PERFORM FRM_GET_MOON_LIST TABLES GT_GMOON1 USING S_ERDAT-LOW S_ERDAT-HIGH.

  BREAK-POINT.
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_MOON_LIST
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LT_GM  text
*      -->P_S_ERDAT_LOW  text
*      -->P_S_ERDAT_HIGH  text
*----------------------------------------------------------------------*
FORM FRM_GET_MOON_LIST  TABLES   PT_GM STRUCTURE GT_GMOON1
                        USING    PV_ERDAT_LOW
                                 PV_ERDAT_HIGH.

*DATA: BEGIN OF gT_GMoon OCCURS 0,
*        zmoon TYPE char6,
*      END OF gT_GMoon.

  DATA: LV_DAT1 TYPE DATS.
  DATA: LV_DAT2 TYPE DATS.
  DATA: LV_DAT3 TYPE DATS.

  LV_DAT1 = PV_ERDAT_LOW+0(6)  && '01'.
  LV_DAT2 = PV_ERDAT_HIGH+0(6) && '01'.

  PT_GM = LV_DAT2+0(6).
  APPEND PT_GM.

  WHILE  LV_DAT1 NE LV_DAT2.
    LV_DAT2 = LV_DAT2 - 1.
    LV_DAT2 = LV_DAT2+0(6) && '01'.
    PT_GM   = LV_DAT2+0(6).
    APPEND PT_GM.

  ENDWHILE.

  SORT PT_GM.

ENDFORM.                    " FRM_GET_MOON_LIST