首页 要闻 > 内容

时间加减计算器功能 时间加减计算器

时间:2024-10-25 17:15:10 来源:
导读 大家好,我是小典,我来为大家解答以上问题。时间加减计算器功能,时间加减计算器,很多人还不知道,现在让我们一起来看看吧!1、Dim objf...

大家好,我是小典,我来为大家解答以上问题。时间加减计算器功能,时间加减计算器,很多人还不知道,现在让我们一起来看看吧!

1、Dim objfs,objargs Set objargs=WScript.Arguments Set objfs=CreateObject("scripting.filesystemobject") Set f=objfs.OpenTextFile(objargs(0),1) Dim stime,s sec=0 Do While f.AtEndOfStream<>True stime=f.ReadLine s=Split(stime,":",-1,1) sec=sec+CInt(s(0)*60+s(1)) Loop WScript.Echo sec/60 & " 分" 终于写出来了。

2、呵呵,用vbs写。

3、你把代码保存为a.vbs,然后把要计算的时间按 5:15 5:17 5:26 5:26 5:34 5:42 这样的格式写在一个文本文件里,然后把这个文本文件拖到a.vbs这个文件上就出来结果了。

4、 记住只能是保存为以上格式的才行。

本文到此讲解完毕了,希望对大家有帮助。