求计算时间差的 VB软件或代码

路飞

这个不懂，帮你顶一下

我是誰

没有VB的环境，给你写个vbs好了.
把以下代码保存到文本文件，后缀名改成vbs就可以，例如：计算时间差.vbs  为了方便，你可以把它放在桌面上．然后双击就可以运行：

2. on error resume next
3. dim startDate,endDate
5. '*可接受的日期格式如下
6. '*   2008-8-1 14:32
7. '*   08-08 20:00
8. startDate=CDate(inputbox("请输入起始日期"))
9. endDate=CDate(inputbox("请输入结束日期"))
10. if len(startDate)*len(endDate)=0 then
11.    msgbox "日期格式错误",16
12.    WScript.Quit
13. end if
15. dim totalMinutes,tHours,tMinutes
16. totalMinutes=datediff("n",startDate,endDate)
17. tHours=totalMinutes \ 60
18. tMinutes=totalMinutes mod 60
20. '使用inputbox显示结果，方便复制
21. inputbox "计算结果出了啦",,tHours & "小时" & tMinutes & "分"

复制代码

BTW,其实使用Excel计算也许更方便

ycx2003

谢谢，我试试

ycx2003

本人工作经常要计算两个时间的间隔，如，7月11日0730，7月12日0845，两个时间的间隔，结果最好显示25小时15分钟，（不要天数）。在EXCEL里计算实在太不方便，麻烦各位大虾设计像计算器一样的软件可以两个数相减，或者框框可以输进去相减的，有代码也行，先谢谢了。