|
VB 时长转换/时间转换，VB 把时长转换为*天*时*分*秒：
Public Function TimeToData(Ms) As String '时长转换/时间转换
Dim D, S, F, M '天,时,分,秒
M = Ms / 1000 '总秒数
If M > 86400 Then '如果超过1天
D = M / 86400
If InStr(D, ".") > 0 Then D = Left(D, InStr(D, ".") - 1) '小时
If Len(D) < 2 Then D = "0" & D '补位
Else
D = "00"
End If
M = M - D * 86400 '减去天数后剩下的秒数
If M > 3600 Then '如果超过1小时
S = M / 3600
If InStr(S, ".") > 0 Then S = Left(S, InStr(S, ".") - 1) '小时
If Len(S) < 2 Then S = "0" & S '补位
Else
S = "00"
End If
M = M - S * 3600 '减去小时后剩下的秒数
If M > 60 Then '如果超过1分钟
F = M / 60
If InStr(F, ".") > 0 Then F = Left(F, InStr(F, ".") - 1) '分钟
If Len(F) < 2 Then F = "0" & F '补位
Else
F = "00"
End If
M = CInt(M - F * 60) '减去分钟后剩下的秒数
If InStr(M, ".") > 0 Then M = Left(M, InStr(M, ".") - 1)
If Len(M) < 2 Then M = "0" & M '补位
TimeToData = D & "天" & S & "时" & F & "分" & M & "秒"
End Function
MsgBox TimeToData(999999999) |