abap TimeStamp

最新推荐文章于 2025-02-13 11:11:06 发布

转载最新推荐文章于 2025-02-13 11:11:06 发布 · 1.5w 阅读

文章标签：

#function #date #report #system #testing #output

ABAP程序专栏收录该内容

17 篇文章

订阅专栏

本文通过自建程序对比了 SAP 系统中多种 Timestamp 转换函数的效果，包括系统时间戳获取及不同函数间的输入输出转换，为开发者提供实际应用案例。

http://www.abaptech.com/2010/05/timestamp-%E5%AF%B9%E5%AF%B9%E7%A2%B0/

关于Timestamp, 在SAP系统中有很多的可以使用的转换函数, 但是并不是每种的timestamp格式都相同, 今天有空就玩一个timestamp对对碰的游戏. 在自建的程序中把这些对对转换的函数一一比较.

程序代码如下:

*&amp;---------------------------------------------------------------------*
*&amp; Report  ZBOBO_TIMESTAMP_TESTING
*&amp;
*&amp;---------------------------------------------------------------------*
*&amp; Desc: Timestamp 对对碰
*&amp;
*&amp;---------------------------------------------------------------------*
 
REPORT  ZBOBO_TIMESTAMP_TESTING.
 
*--&gt;1. System timestamp
data: ls like tzonref-tstamps,
      da like sy-datum,
      ti like sy-uzeit.
GET TIME STAMP FIELD ls.
write: 'System timestamp:'.
write: / ls.
skip.
 
*--&gt;2. RKE_TIMESTAMP_CONVERT_INPUT&amp;OUTPUT
WRITE: / 'RKE_TIMESTAMP_CONVERT_INPUT&amp;OUTPUT'.
data:lt type CEST1-TIMESTMP.
CALL FUNCTION 'RKE_TIMESTAMP_CONVERT_INPUT'
  EXPORTING
    I_DATE             = sy-datum
    I_DAYST            = sy-dayst
    I_TIME             = sy-uzeit
    I_TZONE            = sy-tzone
 IMPORTING
   E_TIMESTMP         = lt
 EXCEPTIONS
   DATE_INVALID       = 1
   OTHERS             = 2
          .
write: / 'Timestamp:' ,lt.
 
CALL FUNCTION 'RKE_TIMESTAMP_CONVERT_OUTPUT'
  EXPORTING
    I_DAYST          = sy-dayst
    I_TIMESTMP       = lt
    I_TZONE          = sy-tzone
 IMPORTING
   E_DATE           = da
   E_TIME           = ti
          .
write: 'Date&amp;Time:', da, ti.
skip.
 
*--&gt;3. IB_CONVERT_INTO_TIMESTAMP&amp;IB_CONVERT_FROM_TIMESTAMP
WRITE: / 'IB_CONVERT_INTO_TIMESTAMP&amp;IB_CONVERT_FROM_TIMESTAMP'.
CALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'
  EXPORTING
    I_DATLO           = sy-datum
    I_TIMLO           = sy-uzeit
   I_TZONE           = SY-ZONLO
 IMPORTING
   E_TIMESTAMP       = ls
          .
write: / 'Timestamp:' ,ls.
CALL FUNCTION 'IB_CONVERT_FROM_TIMESTAMP'
  EXPORTING
    I_TIMESTAMP       = ls
   I_TZONE           = SY-ZONLO
 IMPORTING
   E_DATLO           = da
   E_TIMLO           = ti
          .
write: 'Date&amp;Time:', da, ti.
skip.
 
*--&gt;4. LXHME_TIMESTAMP_CONVERT_INTO&amp;LXHME_TIMESTAMP_CONVERT_FROM
write: / 'LXHME_TIMESTAMP_CONVERT_INTO&amp;LXHME_TIMESTAMP_CONVERT_FROM'.
CALL FUNCTION 'LXHME_TIMESTAMP_CONVERT_INTO'
  EXPORTING
    IV_DATE                = sy-datum
    IV_TIME                = sy-uzeit
 IMPORTING
   EV_TIMESTAMP           = ls
 EXCEPTIONS
   CONVERSION_ERROR       = 1
   OTHERS                 = 2
          .
write: / 'Timestamp:' ,ls.
CALL FUNCTION 'LXHME_TIMESTAMP_CONVERT_FROM'
  EXPORTING
    IV_TIMESTAMP           = ls
 IMPORTING
   O_DATE                 = da
   O_TIME                 = ti
 EXCEPTIONS
   CONVERSION_ERROR       = 1
   OTHERS                 = 2
          .
write: 'Date&amp;Time:', da, ti.
skip.