by Kalpesh Patel (2 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 14th February 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Convert Minutes into format "HH:MM:SS"
Dim nHH As Integer
Dim nMM As Integer
nHH = 0
nMM = Min
While Min > 59
nHH = nHH + 1
Min = Min - 60
nMM = Min
Wend
If nHH < 10 Then
nH = "0" & nHH
Else
nH = nHH
End If
If nMM < 10 Then
nM = "0" & nMM
Else
nM = nMM
End If
MinToHr = nH & ":" & nM & ":00"
End Function