UC知道时间加减计算器哪里有下载啊？总之能算时间加减法就行！
来源：百度知道 编辑：UC知道 时间：2024/06/27 17:11:19
时间加减计算器哪里有下载啊？总之能算时间加减法就行！
我用普通10进制计算机计算时间太慢了！想要找一个60进制的计算器，有谁知道哪里有下载吗？或者谁有啊？有的可以发到我邮箱。
不要跟我说用Excel求和。
邮箱：358812308@163.com
给追加高分！（一定要能用啊！）
例如：
3:28、4:52、8:31 和为：16:51
因为我之后接触时间加减要很长一段时间。10进制算法很慢，而且要反复检验，所以想找个60进制的时间计算器。不知道有没有啊？
如下是我这次需要计算的时间之和。（未完全，太长了！）
2:38
2:48
3:05
3:15
3:21
3:22
3:29
3:29
3:30
3:33
3:38
3:42
3:43
3:45
3:47
3:48
3:50
3:51
3:51
3:52
3:53
3:54
3:54
3:55
3:55
3:56
3:58
3:58
3:58
3:59
3:59
3:59
4:00
4:01
4:02
4:03
4:04
4:05
4:07
4:11
4:11
4:11
4:11
4:12
4:13
4:15
4:16
4:18
4:20
4:20
4:21
4:21
4:22
4:23
4:25
4:27
4:29
4:29
4:29
4:29
4:30
4:31
4:32
4:32
4:34
4:34
我用普通10进制计算机计算时间太慢了！想要找一个60进制的计算器，有谁知道哪里有下载吗？或者谁有啊？有的可以发到我邮箱。
不要跟我说用Excel求和。
邮箱：358812308@163.com
给追加高分！（一定要能用啊！）
例如：
3:28、4:52、8:31 和为：16:51
因为我之后接触时间加减要很长一段时间。10进制算法很慢，而且要反复检验，所以想找个60进制的时间计算器。不知道有没有啊？
如下是我这次需要计算的时间之和。（未完全，太长了！）
2:38
2:48
3:05
3:15
3:21
3:22
3:29
3:29
3:30
3:33
3:38
3:42
3:43
3:45
3:47
3:48
3:50
3:51
3:51
3:52
3:53
3:54
3:54
3:55
3:55
3:56
3:58
3:58
3:58
3:59
3:59
3:59
4:00
4:01
4:02
4:03
4:04
4:05
4:07
4:11
4:11
4:11
4:11
4:12
4:13
4:15
4:16
4:18
4:20
4:20
4:21
4:21
4:22
4:23
4:25
4:27
4:29
4:29
4:29
4:29
4:30
4:31
4:32
4:32
4:34
4:34
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 & " 分"
终于写出来了。呵呵，用vbs写的。你把代码保存为a.vbs，然后把上面的时间按
5:15
5:17
5:26
5:26
5:34
5:42
这样的格式写在一个文本文件里，然后把这个文本文件拖到a.vbs这个文件上就出来结果了。比如你那个结果就是16.85分。你自己用计算器算一下用0.85*60就出来秒数了。
记住只能是保存为以上格式的才行。