C14B_ADD_TIME 某一日期某一时间增加一段时间得到新的日期和时间
FUNCTION C14B_ADD_TIME.
*"----------------------------------------------------------------------
*" IMPORTING
*" VALUE(I_STARTTIME) TYPE T
*" VALUE(I_STARTDATE) TYPE D
*" VALUE(I_ADDTIME) TYPE T
*" EXPORTING
*" VALUE(E_ENDTIME) TYPE T
*" VALUE(E_ENDDATE) TYPE D
*"----------------------------------------------------------------------
DATA : DIFFERENZ TYPE I.
E_ENDTIME = I_STARTTIME + I_ADDTIME.
DIFFERENZ = E_ENDTIME - I_STARTTIME.
IF DIFFERENZ < 0.
E_ENDDATE = I_STARTDATE + 1.
ELSE.
E_ENDDATE = I_STARTDATE.
ENDIF.
ENDFUNCTION.
阅读(1066) | 评论(0) | 转发(0) |
