Chinaunix首页 | 论坛 | 博客
  • 博客访问: 464777
  • 博文数量: 199
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 1902
  • 用 户 组: 普通用户
  • 注册时间: 2020-05-14 13:25
个人简介

代码5S

文章分类

全部博文(199)

文章存档

2021年(5)

2020年(194)

我的朋友

分类: 其他平台

2020-08-25 16:40:58


点击(此处)折叠或打开

  1. REPORT zdemo02.

  2. DATA:gv_budatb TYPE bkpf-budat,
  3.      gv_budate TYPE bkpf-budat,
  4.      gv_gjahrb TYPE bkpf-gjahr,
  5.      gv_gjahre TYPE bkpf-gjahr.

  6. gv_budatb = '20000825'.
  7. gv_budate = '20200825'.

  8. IF gv_budatb GT gv_budate.
  9.   EXIT.
  10. ENDIF.

  11. gv_gjahrb = gv_budatb+0(4).
  12. gv_gjahre = gv_budate+0(4).

  13. DO.
  14.   WRITE / gv_gjahrb.

  15.   gv_gjahrb = gv_gjahrb + 1.

  16.   IF gv_gjahrb GT gv_budate.
  17.     EXIT.
  18.   ENDIF.
  19. ENDDO.

阅读(2149) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~