关于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.
程序执行结果如下：
No Comments