7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
betagain 2003-09-04
- 打赏
- 举报
楼上方法很好
betagain 2003-09-04
- 打赏
- 举报
楼上房号很好
northwolves 2003-09-04
- 打赏
- 举报
12235*3600-26=44045974
可以这样计算：
Private Sub Command1_Click()
MsgBox seconds("12234:59:34")
End Sub
Function seconds(ByVal period As String) As Long
Dim temp
temp = Split(period, ":")
seconds = CLng(temp(0)) * 3600 + CLng(temp(1)) * 60 + CLng(temp(2))
End Function
可以这样计算：
Private Sub Command1_Click()
MsgBox seconds("12234:59:34")
End Sub
Function seconds(ByVal period As String) As Long
Dim temp
temp = Split(period, ":")
seconds = CLng(temp(0)) * 3600 + CLng(temp(1)) * 60 + CLng(temp(2))
End Function
