通过convert函数可以将日期和时间值转换为时间戳(短格式的YYYYMMDDhhmmss):
DATA: dat TYPE sy-datum,
tim TYPE sy-uzeit,
timstmp TYPE timestamp
.
dat = sy-datum.
tim = sy-uzeit.
PERFORM convert_datum_to_timestamps USING dat tim CHANGING timstmp.
WRITE: '现在时间:', timstmp.
*
*&---------------------------------------------------------------------*
*& Form convert_datum_to_timestamps
*&---------------------------------------------------------------------*
FORM convert_datum_to_timestamps USING p_date TYPE d
p_time TYPE t
CHANGING p_timestamp TYPE timestamp.
DATA: l_timezone LIKE ttzz-tzone.
CONVERT DATE p_date
TIME p_time
INTO
TIME STAMP p_timestamp TIME ZONE l_timezone.
ENDFORM.