把以下代码保存到文本文件，后缀名改成vbs就可以，例如：计算时间差.vbs为了方便，你可以把它放在桌面上．然后双击就可以运行：
on error resume next
dim startDate,endDate
'*可接受的日期格式如下
'* 2008-8-1 14:32
'* 08-08 20:00
startDate=CDate(inputbox("请输入起始日期"))
endDate=CDate(inputbox("请输入结束日期"))
if len(startDate)*len(endDate)=0 then
msgbox "日期格式错误",16
WScript.Quit
end if
dim totalMinutes,tHours,tMinutes
totalMinutes=datediff("n",startDate,endDate)
tHours=totalMinutes \ 60
tMinutes=totalMinutes mod 60
'使用inputbox显示结果，方便复制
inputbox "计算结果出了啦",,tHours & "小时" & tMinutes & "分"
BTW,其实使用Excel计算也许更方便 谢谢，我试试
求计算时间差的 VB软件或代码
本人工作经常要计算两个时间的间隔，如，7月11日0730，7月12日0845，两个时间的间隔，结果最好显示25小时15分钟，（不要天数）。在EXCEL里计算实在太不方便，麻烦各位大虾设计像计算器一样的软件可以两个数相减，或者框框可以输进去相减的，有代码也行，先谢谢了。
页:
[1]