VB 数字转个时间

来源：百度知道 编辑：UC知道 时间：2024/06/09 09:48:41
比如：864001 秒数 转成结果 1天0分1秒

如果不足1天就以10:10:10 形式显示 累计开启的时间， 过程参数就是秒，帮忙写个function的过程，返回结果就是技术后的字符型，没空写了。 银子嫌不足再加。

Private Sub Form_Load()
Debug.Print NumToData(86401)
End Sub

Function NumToData(Seconds As Long) As String
Dim d As Long, h As Long, m As Long, t As Long

t = Seconds

d = Int(t / 86400)
t = t Mod 86400

h = Int(t / 3600)
t = t Mod 3600

m = Int(t / 60)
t = t Mod 60

If d <> 0 Then
NumToData = CStr(d) & "日" & CStr(h) & "时" & CStr(m) & "分" & CStr(t) & "秒"
Else
NumToData = CStr(h) & ":" & CStr(m) & ":" & CStr(t)
End If
End Function

1天时86400秒，不是864000秒