Convertir Segundos a Horas Minutos Segundos

[NA1TM3R]

Saludos!
Hoy ando por aquí listo para una aportación . . .

Seguramente alguna vez has necesitado una diferencia de horas, minutos ó simples segundos, lo malo es que si lo hicieramos de la forma tradicional nos saldría algo mas ó menos así:

1 hora 0 minutos 4933 segundos

Lo cuál no es el resultado esperado no es verdad?

Con el siguiente código pueden por fin hacer su pequeño contador hehehe . . . espero les sirva . . .

Código:

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 

Lo cuál nos daría algo como:

1:24:03 horas

Fácil y rápido . . .

Hasta la proxima ! ! !

[Adler]

Hola, NA1TM3R

Se agradece el aporte, pero sería mejor que lo postearas en la faq

Un saludo y continua así

[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)

[SoulOverride]

Yo tengo este otro codigo para pasar de minutos a segundos que hice yo y me funciona perfectamente y tiene menos lineas, a ver ke os parece

Código:

totalTiempo = Request.Form("totalSegons")

hores = int((totalTiempo/3600))
aux = int(totalTiempo-(3600*hores))
minuts = int(aux/60)
segons = totalTiempo-hores*3600-minuts*60

temps = hores&":"&minuts&":"&segons

Response.Write(temps)

[Adler]

Hola

Sí, son menos lineas, pero te saltas todo este código para dar formato

Código ASP:

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
 

Por otro lado, haces demasiadas operaciones matemáticas por no usar la función DateDiff()
De cualquier modo se agradece

[PcSaurio]

me parece excelente la solución de SoulOverride, el formato se da en una linea.
Adler, no olvides que las funciones también ejecutan lineas de código, es decir el trabajo de la UAL (unidad aritmética lógica) puede ser incluso mayor.
saludos.

[Adler]

Iniciado por PcSaurio

Adler, no olvides que las funciones también ejecutan lineas de código, es decir el trabajo de la UAL (unidad aritmética lógica) puede ser incluso mayor.
saludos.

¿Quién ha dicho lo contrario? A lo que me refería es que es mas sencillo de escribir y de entender si usas funciones que operaciones aritméticas. !Que raro!

[arias_carlos1979]

de fabula me sirvio mucho.

[Trulala de cordoba]

Hola
Por casualidad tienen la misma funcion pero para la fecha de una persona, para mostrar algo como esto

Edad = 22 años, 5 meses, 12 días