VB 时间加定值问题

Question

时间格式为hh：mm：ss 
我想在这个上面加上两个半小时 不知道怎么加 
小弟菜鸟 麻烦高手指点

Answer 1

DateAdd(interval, number, date)
返回一个日期，这一日期加上了一段时间间隔。可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。DataAdd 函数参数 参数 说明 interval 字符串表达式，是所要加上去的时间间隔的单位。 
number 数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。 
date 日期表达式，这一日期还加上了时间间隔。 
interval 参数设定值 值 说明 
yyyy 年 
q 季 
m 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 时 
n 分钟 
s 秒 你的情况就是这样
DateAdd("h",2.5,你的时间)

Answer 2

“DateAdd("h",2.5,你的时间)”可以吗？
那个0.5加不上。

Answer 3

四楼果然高明。
呵呵我还写了一堆：Option Explicit
Private myTime As String
Private Sub Command1_Click()
    Dim hh As Integer, mm As Integer, ss As Integer
    myTime = Time
    Print "现在时刻是：" & myTime
    hh = InputBox("请输入要增加的小时：")
    mm = InputBox("分钟：")
    ss = InputBox("秒钟：")
    Call TimeAdd(hh, mm, ss)
    Print "加后时间" & myTime
End SubPrivate Sub TimeAdd(hh As Integer, mm As Integer, ss As Integer)
    Dim strTime As String              '用来存放时间，。
    strTime = CStr(hh) & ":" & CStr(mm) & ":" & CStr(ss)        '把hh,mm,ss,改成字符串格式的
    
    '时间相加
    myTime = TimeValue(Format(myTime, "hh:mm:ss")) + TimeValue(Format(strTime, "hh:mm:ss"))
End Sub