ABAP 获取日期范围月份清单

最新推荐文章于 2024-05-30 21:30:00 发布

燚㵘䲜

最新推荐文章于 2024-05-30 21:30:00 发布

阅读量567

点赞数

分类专栏： 10.Abap 文章标签：日期范围月份个数

本文链接：https://blog.csdn.net/cly_apple/article/details/125643842

版权

10.Abap 专栏收录该内容

53 篇文章 4 订阅

订阅专栏

REPORT Y_CLY_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