不太明白你的意思,是将秒数转成时:分:秒的格式?Dim ss As Long
Dim h, m, s As Integer
ss = 36610 '10小时10分钟10秒
h = ss \ 60 \ 60
m = (ss \ 60) - (h * 60)
s = ss Mod 60
MsgBox h & ":" & m & ":" & s
Dim h, m, s As Integer
ss = 36610 '10小时10分钟10秒
h = ss \ 60 \ 60
m = (ss \ 60) - (h * 60)
s = ss Mod 60
MsgBox h & ":" & m & ":" & s
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货