如何计算时间差？？？

Question

dim 开始时间 As Date
dim 结束时间 as Data
dim 时间差 as Data开始时间="0:20:00"
结束时间="1:23:34"
时间差= CDate(结束时间-开始时间)只到怎么做了吧给我点分吧朋友。

Answer 1

使用DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])
参数interval为String型，"d"表示计算单位为天数，"n"表示计算单位为分钟，"s"表示计算单位为秒，等等。
参数date1,date2则为计算要用的两个日期。
具体情况可以看看VB语言参考

Answer 2

to FrankWang
你可以判断如果结束时间比开始时间要“早”可以在它的原时间上加上24:00
不就可以求得了吗？
开始时间="23:00:00"
结束时间="4:00:00"
....
'这里判断结束时间=结束时间+"24;00:00"
时间差= CDate(结束时间-开始时间)

Answer 3

 to nyxi(南野秀一)　
你知道吗？4:00:00+24:00:00 =28:00:00
 28:00:00是不合法的时间格式

Answer 4

to FrankWang
你可以判断如果结束时间比开始时间要“早”可以在它的原时间上加上24:00
不就可以求得了吗？
开始时间="23:00:00"
结束时间="4:00:00"
....
'这里判断时间差= CDate("24;00:00"-(开始时间-结束时间))

Answer 5

呵呵…………
打错了！
是这样的！
If 开始时间>结束时间 Then
    时间差= CDate("24;00:00"-(开始时间-结束时间))
Else
    时间差= CDate(结束时间-开始时间)
End If
这样就对了！