ABAP有关日期的操作

最新推荐文章于 2024-11-26 07:35:20 发布

MoreTuMoreQiang

最新推荐文章于 2024-11-26 07:35:20 发布

阅读量745

点赞数

CC 4.0 BY-SA版权

文章标签：开发语言

本文链接：https://blog.youkuaiyun.com/MoreTuMoreQiang/article/details/124099574

该代码段展示了如何进行日期加减运算，字符串与日期的相互转换，以及时间戳的获取。主要涉及日期计算函数和时间戳操作，包括使用BAPI函数'RP_CALC_DATE_IN_INTERVAL'计算日期间隔，以及GET TIME STAMP字段获取当前时间。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DATA:ZECQTS TYPE ZSDT008-ZZCQTS."DEC类型
DATA:ZDAY1 TYPE SY-DATUM.
DATA:ZDAY2 TYPE SY-DATUM.
DATA:ZDAY3 TYPE SY-DATUM.
DATA:string1(4) TYPE C.
DATA:string2(4) TYPE C.
DATA: stamp_3 TYPE TIMESTAMP.
ZDAY2 = '20200101'."以字符串类型赋值给day2
*ZDAY2 = 20200101."加上20200101天
"定义日期类型的变量，调用如下BAPI
CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
  EXPORTING
    date            = SY-DATUM
    days            = 01
    months          = 00
   SIGNUM          = '-'
    years           = 1
IMPORTING
   CALC_DATE       = ZDAY3
          .
string1 = ZDAY2+0(4) + 1 .
string2 = ZDAY2+4(4).
*ZDAY3 = string1 + string1.
CONCATENATE string1 string2 INTO ZDAY3."char类型没有空格，string类型有空格
ZECQTS = 366.
ZDAY1 = SY-DATUM - ZDAY3.
IF ZDAY1 > ZECQTS.
WRITE:ZDAY1.

ENDIF.
DATA: stamp_1 TYPE TIMESTAMP,

stamp_2 TYPE TIMESTAMPL.
GET TIME STAMP FIELD stamp_1.
Write: / 'The short time stamp is:', stamp_1

TIME ZONE SY-ZONLO.
GET TIME STAMP FIELD stamp_2.
Write: / 'The long time stamp is:', stamp_2
TIME ZONE SY-ZONLO.