[ABAP]时间戳

数据结构：

1.TZONREF    ABAP 时间标记的参考字段

2.SYST    ABAP 系统字段

时间戳代码1

DATA: lv_timestamp TYPE tzonref-tstamps, "时间戳
      lv_tzone     TYPE sy-zonlo,        "ABAP 系统字段：当前用户的时区
      lv_datlo     TYPE sy-datlo,        "ABAP 系统字段：当前用户的本地日期
      lv_timlo     TYPE sy-timlo.        "ABAP 系统字段：当前用户的本地时间

"获取时间戳代码1
GET TIME STAMP FIELD lv_timestamp.
WRITE / lv_timestamp.

"获取时间戳代码2
CLEAR lv_timestamp.
CALL FUNCTION 'CIF_GEN4_CONVERT_DATETIME'
  EXPORTING
    iv_date                = sy-datum
    iv_time                = sy-uzeit
    iv_timezone            = sy-zonlo
  IMPORTING
    ev_timestamp           = lv_timestamp
  EXCEPTIONS
    time_conversion_failed = 1
    OTHERS                 = 2.
SKIP.
WRITE: / lv_timestamp,
       / sy-zonlo,
       / sy-datum,
       / sy-uzeit.

"时间戳获取时间
CALL FUNCTION 'IB_CONVERT_FROM_TIMESTAMP'
  EXPORTING
    i_timestamp = lv_timestamp
    i_tzone     = sy-zonlo
  IMPORTING
    e_datlo     = lv_datlo
    e_timlo     = lv_timlo.
SKIP.
WRITE: / lv_timestamp,
       / sy-zonlo,
       / lv_datlo,
       / lv_timlo.

时间戳代码2

DATA: lv_timestamp TYPE timestamp,
      lv_date      TYPE sy-datum VALUE '20240501',
      lv_time      TYPE sy-uzeit VALUE '000000'.

CONVERT DATE lv_date TIME lv_time INTO TIME STAMP lv_timestamp TIME ZONE sy-zonlo.
WRITE lv_timestamp.