VB 时长转换/时间转换,VB 时长转换,VB 时间转换,VB 时长,VB 时间,VB 把时长转换为*天*时*分*秒,VB 时长转换为*天*时*分*秒,VB 时长转为*天*时*分*秒,VB 时间转为*天*时*分*秒,VB *天*时*分*秒,VB TimeToData。
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)
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)
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)
Else
F = "00"
End If
M = CInt(M - F * 60) '减去分钟后剩下的秒数
If InStr(M, ".") > 0 Then M = Left(M, InStr(M, ".") - 1)
If Len(M)
TimeToData = D & "天" & S & "时" & F & "分" & M & "秒"
End Function
MsgBox TimeToData(999999999)
|
文章来源于lcx.cc:【VB】VB 时长转换/时间转换为*天*时*分*秒
相关推荐: 3389 远程桌面 Mstsc RDP协议详细解析 (下)
由于太长了,所以分成了两部分,这是下半部分,上半部分在这里:3389 远程桌面 Mstsc RDP协议详细解析(上) 6-1) 连接过程说明 包序号 接收发送 字符 含义 1 R InDr 设备初始连接通知,说明可以连接申请 2 S CCDr 客户端连接申请 …
评论