求救！时间的计算

[lwdz]

问题是这样的：1个工人干活，我记下他的开始工作时间，记下他的结束工作时间
工人的工资是按照小时计算的，我用结束时间减去开始时间后，怎么能把这个时间转换成小时啊？

[tztz520]

Private Sub Command1_Click()
Dim pValue As Long
Dim a As Date, b As Date
Dim xx As Single, hh As Long, mm As Long, ss As Long

a = #4/25/2004 1:06:55 PM#
b = #4/25/2004 2:09:01 PM#

pValue = DateDiff("s", a, b)

xx = pValue / 3600
hh = Int(xx)
mm = Int((pValue - 3600 * hh) / 60)
ss = pValue - hh * 3600 - mm * 60

MsgBox "相差小时:" & Format(hh, "00")
MsgBox "相差分钟:" & Format(mm, "00")
MsgBox "相差秒:" & Format(ss, "00")


End Sub

[creazyfish]

这个我估计算到分钟就算可以了吧呵呵

[Mars.CN]

就是一楼的：

Private Sub Command1_Click()
Dim pValue As Long
Dim a As Date, b As Date
Dim xx As Single, hh As Long, mm As Long, ss As Long

a = #4/25/2004 1:06:55 PM#
b = #4/25/2004 2:09:01 PM#

pValue = DateDiff("s", a, b)

xx = pValue / 3600
hh = Int(xx)
mm = Int((pValue - 3600 * hh) / 60)
ss = pValue - hh * 3600 - mm * 60

MsgBox "相差小时:" & Format(hh, "00")
MsgBox "相差分钟:" & Format(mm, "00")
MsgBox "相差秒:" & Format(ss, "00")


End Sub

[newsuperstar]

学习