Question

vb有没有计算时间差的好办法啊

最后的结果能不能显示成00：00：00这样子
累计把时间相加 如果最终的结果是 2小时 28分 34秒
就显示 02：28：34秒

Answer 1

不太明白你要干什么，但一下代码仅作参考：
时间差的计算用DateDiff函数：要相加时间DateAdd:

例如：你有2个时间，一个 2小时10分20秒：一个1小时11分23秒，怎样知道这两个时间和是多少小时多少分钟多少秒呢？这样计算：
1.计算第一个时间有多少秒，转换为秒
Dim l1 as double
l1=datediff("s","00:00:00","02:10:20")
2.同理计算第2个时间
Dim l2 as double
l2=datediff("s","00:00:00","01:11:23")
3.计算两个时间和并转换为时间格式
Dim sDate as string
sDate=format$(DateAdd("s",l1+l2,"00:00:00"),"hh:mm:ss")
msgbox sDate
不知道你要的是不是这个。请注意两个时间和如果大于24小时，是不会取天的部分，自己判断。一天是86400秒。

Answer 2

DateDiff 函数 返回一个 Long值,该值指定两个 Date值之间的时间间隔数。
用法：DateDiff (interval, Date1 , Date2[,firstweekofyear[,firstweekofyear]])
interval 的设定值如：
yyyy > Year 年
q Quarter 季
m Month 月
d Day 日
w Weekday 星期
h Hour 时
n Minute 分

计算两个时间的时间差(现在到20点相差多少秒)：
msgbox DateDiff("s", time(),Cdate("20:00") )

现在到20点相差多少小时：
msgbox DateDiff("h", time(),Cdate("20:00") )

*在计算时间时，DateDiff 是取整后比较的，也就是说19：59分和20：00差多少小时会显示为1。

Answer 3

更改时间格式就OK了 估计楼主计算时间差的方法有了 剩下的就是把的道的数据的时间格式改成你需要的就行了
最终结果存放的变量 =Format(Now, " hh:mm:ss秒")

Answer 4

假如是a=2 可用 string(2-len(a),"0") & cstr(a)