ABAP 获取unix时间戳

最新推荐文章于 2024-05-14 16:01:13 发布

谢图图

最新推荐文章于 2024-05-14 16:01:13 发布

阅读量864

点赞数 1

分类专栏： ABAP 文章标签： sap abap

本文链接：https://blog.csdn.net/xiefireworks/article/details/121620646

版权

ABAP 专栏收录该内容

61 篇文章 13 订阅

订阅专栏

*& 参数 UNIX_TIMESTAMP	Returning	Type	CHAR32
    DATA: time           TYPE tzntstmpl,
          seconds_s      TYPE char20,
          timestamp_s    TYPE string,
          curr_timestamp TYPE p,
          timestamp1970  TYPE p,
          seconds        TYPE tzntstmpl.

    GET TIME STAMP FIELD time.

    curr_timestamp = time.
    timestamp1970  = '19700101000000'.

    TRY.
        seconds = cl_abap_tstmp=>subtract(
          tstmp1 = curr_timestamp
          tstmp2 = timestamp1970
        ).
      CATCH cx_parameter_invalid_range .
      CATCH cx_parameter_invalid_type .
    ENDTRY.

    seconds_s       = seconds.
    SHIFT seconds_s BY 9 PLACES RIGHT.
    CONDENSE seconds_s.
    timestamp_s     = time.
    unix_timestamp  = seconds_s && timestamp_s+15(3).