تبدیل ثانیه به ساعت:دقیقه:ثانیه

برای تبدیل عدد ثانیه به ساعت:دقیقه:ثانیه می توانید از این 2 کد مجزا استفاده کنید

Dim aa As Integer
aa = Val(InputBox(""))
Breaksec = Int(aa / 60) & ":" & aa Mod 60
MsgBox Breaksec

__________________________________________________ _______________________________



Public Function ConvertSeconds(Seconds As Long) As String


Dim lTmpMinutes As Long
Dim lTmpSeconds As Long
Dim lTmpHours As Long

If Seconds > 59 Then
lTmpSeconds = Seconds Mod 60
If Seconds > 3599 Then
lTmpHours = Fix(Seconds / 3600)
lTmpMinutes = Seconds / 60 - (60 * lTmpHours)
ConvertSeconds = lTmpHours & ":" & Format _
(lTmpMinutes, "00") & ":" & Format(lTmpSeconds, "00")
Else
lTmpMinutes = Fix(Seconds / 60)
ConvertSeconds = lTmpMinutes & ":" & _
Format(lTmpSeconds, "00")
End If
Else
ConvertSeconds = "0:" & Format(Seconds, "00")
End If
End Function




Private Sub Command1_Click()
Print ConvertSeconds(3197)
End Sub