segundos -> h/m/s

[jrkpote]

quisiera transformar un codigo numerico, en segundos, a horas, minutos, segundos

tengo esto:

Código:

tmp = Split(rschars.Fields("TIEMPO JUGADO"), " ")
tiempo = tmp(0)
tiempo = tiempo / 60
tmp = Split(tiempo, ",")
segundos1 = tmp(1) * 60
tiempo = tmp(0)
tiempo = tiempo / 60
tmp = Split(tiempo, ",")
minutos1 = tmp(1) * 60
horas1 = tmp(0)
jugado = horas1 & "h" & minutos1 & "m" & segundos1 & "s"
tiempo = tmp(1)
tiempo = 5000
tiempo = tiempo / 60
tmp = Split(tiempo, ",")
segundos2 = tmp(1) * 60
tiempo = tmp(0)
tiempo = tiempo / 60
tmp = Split(tiempo, ",")
minutos2 = tmp(1) * 60
horas2 = tmp(0)
total = horas2 & "h" & minutos2 & "m" & segundos2 & "s"

pero me sale al final un codigo larguisimo

[Kruzado]

tiempo=total de segundos cierto?, entonces

hora=int(tiempo/3600)
saldo1 = tiempo mod 3600
minutos=int(saldo1/60)
segundos=saldo1 mod 60

por ejemplo 6156 segundos corresponden a :

hora=int(6156/3600) = 1 calculo el total de horas en base a 1 hora=3600 seg.
saldo1= 6156 mod 3600 = 2556 =los seg. ke sobran despues de calcular las horas
minutos=2556/60 = 42 = calculo los minutos de los seg. sobrantes. 1 min.=60seg
segundos = 256 mod 60 =36 son los seg. sobrantes despues de calc. minutos.

msgbox hora & ":" & minutos & ":" & segundos

[jrkpote]

muchas gracias, me va perfecto