converting seconds

[bushmobile]

\ is integer division, so 7600 \ 1000 = 7
/ is normal division, so 7600 / 1000 = 7.6

the format function performs rounding, so you end up with 8 instead of 7.

your function won't work for a couple of reasons (try putting in 77600 for example). Try this:

Private Function ConvertMilliSeconds(ByVal mSec As Long) As String
    ConvertMilliSeconds = Format$(mSec \ 3600000, "00") & ":" & _
                     Format$((mSec Mod 3600000) \ 60000, "00") & ":" & _
                     Format$((mSec Mod 60000) / 1000, "00.000")
End Function

[Troy Lundin]

Ok, I rewrote it like so:

Private Function cSeconds(ByVal mSec As Long) As String
mSec = 30000
    Select Case mSec
        
        Case Is >= 600, Is < 3600
            cSeconds = _
            Format$((mSec Mod 3600) \ 60, "00") & ":" & _
            Format$(mSec Mod 60, "00")
        Case Is < 600
            cSeconds = "0:" & _
            Format$(mSec Mod 60, "00")
        Case Is >= 3600, Is < 36000
            cSeconds = _
            Format$(mSec \ 3600, "00") & ":" & _
            Format$((mSec Mod 3600) \ 60, "00") & ":" & _
            Format$(mSec Mod 60, "00")
    End Select
    
End Function

Now there is one problem. With mSec at 30000 it completely ignores the first part of the string (the hours) and it returns "20:00". What is going on? No matter what number I make mSec, it will not show the hours. I tried 3599 which returned "59:59" then 3600 which returned "00:00" then 3601 which returned "00:01"

Why is it not showing the hours?