看看这段vc代码怎么变为vb代码

Question

CTime tmEnd(nHoldYear,nHoldMonth,nHoldDay,nHoldHour,nHoldMinute,nHoldSecond);
CTimeSpan span(0, 0, 0, nDuration);tmEnd += span;nEndHoldYear = tmEnd.GetYear();
nEndHoldMonth   = tmEnd.GetMonth();
nEndHoldDay     = tmEnd.GetDay();
nEndHoldHour    = tmEnd.GetHour();
nEndHoldMinute  = tmEnd.GetMinute();
nEndHoldSecond  = tmEnd.GetSecond();--------------------------------
代码如上，不明白怎样将其改写为vb代码，主要是其中，CtimeSpan函数不明白

Answer 1

If me understand Then
   sure answer 
Else
  up
End If

Answer 2

这代码的用意为某个时间加上多少秒之后该为多少时间:比如现在的时间为tmEnd,  span秒数tmEnd = 2006年5月24日  22时40分30秒
span = 126秒
tmEnd = tmEnd + span 
tmEnd = 2006年5月24日  22时42分36秒不知道在vb里面如何写,是否有现成的函数?
谢谢!

Answer 3

NOW + TIMESERIAL(0,0,nDuration)/24

Answer 4

northwolves(狼行天下) ( ) 信誉：125  2006-05-24 23:03:00  得分: 0  
   NOW + TIMESERIAL(0,0,nDuration)/24------------------------
这样就 NOW + TIMESERIAL(0,0,nDuration) OK了.
谢谢!最后问一下,vb中有没有专门保存 Now (Date + Time)这种时间格式的数据类型(除了变体),我只知道有Time,Date两种类型,但是不知道有没有专门DateTime这种类型将Date和Time放到一起(变体除外).
Dim X '变体
X = NOW + TIMESERIAL(0,0,nDuration) '能正确保存既然变体能正确的存储Date+Time,那一定有这种数据类型??
  
 

Answer 5

Time,Date两种类型?
没有Time类型，只有Date类型，Date是包含时间的

Answer 6

Date类型，是时间轴上的一个刻度，确切的说是时刻
是用Double型来存储的，整数部分表示日期(天数)，小数部分表示时间

Answer 7

Date可以直接当Double运算，
比如天直接加减就可以
秒数可以换算为天数(除以一天的秒数)再加减