碧海潮声大学生网

标题: 求计算时间差的 VB软件或代码 [打印本页]
作者: ycx2003    时间: 2008-7-29 19:28
标题: 求计算时间差的 VB软件或代码
本人工作经常要计算两个时间的间隔，如，7月11日0730，7月12日0845，两个时间的间隔，结果最好显示25小时15分钟，（不要天数）。在EXCEL里计算实在太不方便，麻烦各位大虾设计像计算器一样的软件可以两个数相减，或者框框可以输进去相减的，有代码也行，先谢谢了。
作者: 路飞    时间: 2008-7-29 20:58
这个不懂，帮你顶一下
作者: 我是誰    时间: 2008-8-1 14:50
没有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    时间: 2008-8-1 16:27
谢谢，我试试



欢迎光临 碧海潮声大学生网 (http://www.zjoubbs.com/) Powered by Discuz! X3.2