1.获得当前时间
Dim currentTime
currentTime = Time
2.计算2时间差 datediff
Function TimeSpace()
'datediff("d","起始日期","结束日期"),其中"d"代表以天为单位,"M"以月为单位,"H"代表小时;now代表当前日期
a=datediff("H",now,"2008-8-8")
MsgBox(a)
End Function