Pasar de segundos a horas

[[EX3]]

Yo uso este codigo en algunos programas donde trabajo los tiempos en segundos:

Código:

Option Explicit

 Private Sub Form_Load()
Dim Horas As Long, Minutos As Long, Segundos As Long

Call Get_Time(9325, Horas, Minutos, Segundos)

MsgBox Format(Horas, "00") & ":" & Format(Minutos, "00") & ":" & Format(Segundos, "00")

 End Sub

 'Devuelve el tiempo en Horas, Minutos y Segundos:
 Private Sub Get_Time(TimeInSeconds As Long, Hours As Long, Minutes As Long, Seconds As Long)
 Dim Sec As Long, Min As Long, Hour As Long

Sec = TimeInSeconds

Do While Sec >= 60
    Sec = Sec - 60
    Min = Min + 1
Loop

Do While Min >= 60
    Min = Min - 60
    Hour = Hour + 1
Loop

Hours = Hour
Minutes = Min
Seconds = Sec

 End Sub 

Salu2...