Convertir Segundos a Horas Minutos Segundos

[AlZuwaga]

Tremendo trabajo! (el de la coloración del código )

Usando el http://www.forosdelweb.com/f15/nuevo...geishi-624993/ hubiese sido más fácil:

Código asp:

fini = "FECHA INICIAL"
fact = Now()
   segundosonline = DateDiff("s", fini, fact)
   minutosonline = Int(segundosonline/60)
   horasonline = Int(minutosonline/60)
   minutosmod = minutosonline Mod 60
   segundosmod = segundosonline Mod 60 Mod 60 Mod 60 
   If(minutosmod<10) Then minutosmod ="0"&minutosmod End If 
   If(segundosmod<10) Then segundosmod ="0"&segundosmod End If 
   If segundosonline < 60 Then
      tiempo = segundosonline&" segundos"
   ElseIf segundosonline > 60 And segundosonline < 3600 Then
      tiempo = minutosmod&":"&segundosmod&" minutos"
   Else      tiempo = horasonline&":"&minutosmod&":"&segundosmod&" horas"
   End If
 

Un saludo y gracias por el aporte (lo copio yo a la FAQ en su nombre... hecho)