Chinaunix首页 | 论坛 | 博客
  • 博客访问: 286346
  • 博文数量: 62
  • 博客积分: 2966
  • 博客等级: 少校
  • 技术积分: 615
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-07 23:16
个人简介

Be a simple man

文章分类

全部博文(62)

文章存档

2012年(6)

2011年(15)

2010年(6)

2009年(3)

2008年(5)

2007年(27)

我的朋友

分类:

2007-06-15 10:18:20

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.
阅读(1076) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~