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

Posted 2023-04-15

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

不太明白你要干什么，但一下代码仅作参考：
时间差的计算用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秒。 参考技术A 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。 参考技术B 更改时间格式就OK了 估计楼主计算时间差的方法有了 剩下的就是把的道的数据的时间格式改成你需要的就行了
最终结果存放的变量 =Format(Now, " hh:mm:ss秒") 参考技术C 假如是a=2 可用 string(2-len(a),"0") & cstr(a)

皮皮君的C++第十周总结

这一周我们终于学到数组啦撒花

一直觉得数组超实用而且有点难来着。。。这一周有一些作业就一直编译错误了。。。要多问老师跟同学才能找出原因哇。

这一周我们学习了一维数组跟二维数组，还有冒泡法啊选择法啊插入法啊一些对数组排序的方法，以及学习了数组一定要使用比如说for循环来输入跟输出，不然直接的话是会报错的。还有就是数组里感觉经常要用到指针的内容emmm要加快自学诶。还学习了一些字符串处理函数比如说strlen,strcmp啥的

具体的例子就不举了吧，等我问好了再说吧笔芯