时间计算器 高分

来源：百度知道 编辑：UC知道 时间：2024/07/03 03:26:18
谁用VB写个计算时间软件我在加将100积分 谢谢大家了！

要求就是

计算精确到分钟！

计算工作时间软件

比如12点20 到 18点10分 中间用了几小时几分

然后在计算每天工作时间加到一起是

比如第一天5小时30分 加上 第二天6小时20分 加上第三天4小时10分

总共干了多少小时多少分钟 也能统计出来
你好 vlaoda 兄弟非常感谢你

不过有时候工作时间并非都是早上一直干到晚上 怎么办 比如中午休息了，下下午停了2个小时，这样咋计算呢？

我已经把你的那个代码输入进去了生成了EXE 真高兴！

你的问题实际上是两个：
一、计算时间间隔：
DateDiff 函数
DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。
二、时间累计

总代码如下：
Private Sub Command1_Click()
Dim d1 As Date, d2 As Date, sd As Long, delta As Long
Dim n As Integer, i As Integer
n = Val(InputBox("请输入要计算的天数"))
For i = 1 To n
d1 = CDate(InputBox("请输入第" & i & "天的开始时间（hh：mm）" & vbCrLf & " 如果开始日期与结束日期不同," & vbCrLf & " 则应该输入日期（dd hh:mm)"))
d2 = CDate(InputBox("请输入第" & i & "天的结束时间（hh：mm）" & vbCrLf & " 如果开始日期与结束日期不同," & vbCrLf & " 则应该输入日期（dd hh:mm)"))
delta = DateDiff("n", d1, d2)
Print i, delta \ 60; ":"; delta Mod 60
sd = sd + delta
Next i
Print "合计:"; sd \ 60; ":"; sd Mod 60
End Sub

'建立一个text1
'4个按钮
' 结果会保存在程序目录下.resut.txt
'把下面代码复制进去就OK了.
'自己再美化下。
'--------------------------