怎么把毫秒转换成HH:MM:SS的形式

Question

比如123456789MS变换成XX小时XX分钟XX秒的格式如hh:MM:SS

Answer 1

/1000  MOD 1000
/60
/60
/60

Answer 2

Private Sub Command1_Click()
    Dim d As Long
    Dim h As Long
    Dim m As Long
    Dim s As Long
    
    d = CLng(123456789)
    'Debug.Print d
    
    h = d / CLng(CLng(60) * CLng(60) * CLng(1000))
    d = d Mod (CLng(60) * CLng(60) * CLng(1000))
    
    m = d / 60000
    d = d Mod 60000
    
    s = d / 1000
    
    Debug.Print h & ":" & m & ":" & s
End Sub

Answer 3

Dim tmp As Long
Dim strTime As Stringtmp = 123456789tmp = tmp \ 1000 'into second
strTime = CStr(tmp Mod 60)tmp = tmp \60 'into minute
strTime = (tmp mod 60) & ":" & strTimetmp = tmp \60 'into hour
strTime = (tmp mod 24) & ":" & strTime

Answer 4

'这里tmp是秒单位,如果是毫秒需要再除以1000
Private Sub Command1_Click()
Dim ss_lab, mm_lab, hh_lab, tmp As Integer
Dim ss As String
    tmp = 10000
    ss_lab = tmp Mod 60
    mm_lab = ((tmp - ss_lab) / 60) Mod 60
    hh_lab = ((tmp - ss_lab - mm_lab * 60) / 3600) Mod 60
    ss = Format(Format(hh_lab) + ":" + Format(mm_lab) + ":" + Format(ss_lab), "HH:MM:SS")
    MsgBox ss
End Sub

Answer 5

Debug.Print TimeSerial(0, 0, 12345678 \ 1000)