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