SAP中时间戳和日期时间的转换方法

在CRM系统标准表都是存储时间戳的，额传统的ECC一般都是存储时间和日期的，有时我们需要在这两者之间转换。

程序代码：

1. TABLES: t001w,adrc .
   
2. DATA: date LIKE sy-datum,
   
3.       time LIKE sy-uzeit,
   
4.       tstamp LIKE tzonref-tstamps.
   
5. 
   
6. SELECT SINGLE * FROM t001w WHERE werks = 'D025'.
   
7. IF sy-subrc = 0.
   
8.   SELECT SINGLE * FROM adrc WHERE addrnumber = t001w-adrnr . "time_zone，捕获系统当前时区：sy-zonlo
   
9.   PERFORM date_to_timestamp USING '20151225' '120708' adrc-time_zone
   
10.               CHANGING tstamp.
    
11.   WRITE '时间戳:'.
    
12.   WRITE / :tstamp.
    
13.   WRITE / :sy-uline.
    
14. ENDIF.
    
15. IF NOT tstamp IS INITIAL.
    
16.   PERFORM timestamp_to_date USING tstamp adrc-time_zone
    
17.               CHANGING date time.
    
18.   WRITE / : '日期+时间：' .
    
19.   WRITE / : date,time .
    
20. ENDIF.
    
21. 
    
22. *&---------------------------------------------------------------------*
    
23. *&      Form  date_to_timestamp
    
24. *&---------------------------------------------------------------------*
    
25. *       日期+时间+时区  转变为 时间戳
    
26. *----------------------------------------------------------------------*
    
27. FORM date_to_timestamp USING i_date LIKE sy-datum
    
28.                              i_time LIKE sy-uzeit
    
29.                              i_tzone LIKE  tzonref-tzone
    
30.                         CHANGING o_tstamp LIKE tzonref-tstamps  .
    
31.   CONVERT DATE i_date TIME i_time INTO TIME STAMP o_tstamp TIME ZONE i_tzone.
    
32.   CASE sy-subrc.
    
33.     WHEN 8.
    
34.       MESSAGE e000(oo) WITH '时区错'.
    
35.     WHEN 12.
    
36.       MESSAGE e000(oo) WITH '时间戳错误'.
    
37.     WHEN OTHERS.
    
38.   ENDCASE.
    
39. ENDFORM.                    "date_to_timestamp
    
40. 
    
41. *&---------------------------------------------------------------------*
    
42. *&      Form  TIMESTAMP_TO_DATE
    
43. *&---------------------------------------------------------------------*
    
44. *       时间戳+时区 转变为 日期和时间
    
45. *----------------------------------------------------------------------*
    
46. FORM timestamp_to_date USING   i_tstamp LIKE tzonref-tstamps
    
47.                                i_tzone LIKE  tzonref-tzone
    
48.                        CHANGING o_date LIKE  sy-datum
    
49.                                 o_time LIKE  sy-uzeit.
    
50.   DATA: w_tzone LIKE tzonref-tzone.
    
51.   w_tzone = i_tzone.
    
52.   CONVERT TIME STAMP i_tstamp TIME ZONE w_tzone INTO DATE o_date TIME o_time.
    
53.   CASE sy-subrc.
    
54.     WHEN 8.
    
55.       MESSAGE e000(oo) WITH '时区错'.
    
56.     WHEN 12.
    
57.       MESSAGE e000(oo) WITH '时间戳错误'.
    
58.     WHEN OTHERS.
    
59.   ENDCASE.
    
60. ENDFORM.                    "TIMESTAMP_TO_DATE

复制代码

执行效果：


获取系统当前时间戳：

1.   DATA: lv_timestamp TYPE timestamp. "UTC Time Stamp in Short Form (YYYYMMDDhhmmss)
   
2.   GET TIME STAMP FIELD lv_timestamp.
   
3.   WRITE:/ lv_timestamp.

复制代码