• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Convert Minutes into format HH:MM:SS

Convert Minutes into format HH:MM:SS

Convert Minutes into format "HH:MM:SS"

Rate Convert Minutes into format HH:MM:SS

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

 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