abap TimeStamp

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

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

 

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

 

程序代码如下:

*&---------------------------------------------------------------------*
*& Report  ZBOBO_TIMESTAMP_TESTING
*&
*&---------------------------------------------------------------------*
*& Desc: Timestamp 对对碰
*&
*&---------------------------------------------------------------------*
 
REPORT  ZBOBO_TIMESTAMP_TESTING.
 
*-->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.
 
*-->2. RKE_TIMESTAMP_CONVERT_INPUT&OUTPUT
WRITE: / 'RKE_TIMESTAMP_CONVERT_INPUT&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&Time:', da, ti.
skip.
 
*-->3. IB_CONVERT_INTO_TIMESTAMP&IB_CONVERT_FROM_TIMESTAMP
WRITE: / 'IB_CONVERT_INTO_TIMESTAMP&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&Time:', da, ti.
skip.
 
*-->4. LXHME_TIMESTAMP_CONVERT_INTO&LXHME_TIMESTAMP_CONVERT_FROM
write: / 'LXHME_TIMESTAMP_CONVERT_INTO&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&Time:', da, ti.
skip.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值