[VB6] Time Diff

[GywGod133]

Hello fellas!

I want to know how to get a Hour, Minutes, and Seconds

        Dim lSeconds, lMinutes As Long
        Dim sTimeDiff As String

        lSeconds = DateDiff("s", TimeStart, TimeEnd)
        lMinutes = Fix(lSeconds / 60) '// Gets the whole number (not rounded)
        lSeconds = ((lSeconds / 60) - lMinutes) * 60 '// get the remaining seconds
        sTimeDiff = "00:" & Format$(lMinutes, "00") & ":" & Format$(lSeconds, "00")

stackoverflow.com's Source Code

So the problem is, I don't know how to get the hour

 

[Dr Super Good]

You repeat the break down process on lMinutes. I think this would work...

       Dim lSeconds, lMinutes As Long
        Dim sTimeDiff As String

        lSeconds = DateDiff("s", TimeStart, TimeEnd)
        lMinutes = Fix(lSeconds / 60) '// Gets the whole number (not rounded)
        lSeconds = ((lSeconds / 60) - lMinutes) * 60 '// get the remaining seconds
        lHours = Fix(lMinutes / 60) '// Gets the whole number (not rounded)
        lMinutes = ((lMinutes / 60) - lHours) '// get the remaining minutes
        sTimeDiff = Format$(lHours, "00") & ":" & Format$(lMinutes, "00") & ":" & Format$(lSeconds, "00")

Never used Visual Basic so I have no idea if better approaches exist. For example the modulus operator would simplify the code but I do not know it the language has one.