Foros del Web » Programación web » ASP Clásico »

Convertir Segundos a Horas Minutos Segundos

Estas en el tema de Convertir Segundos a Horas Minutos Segundos en el foro de ASP Clásico en Foros del Web. Saludos! Hoy ando por aquí listo para una aportación . . . Seguramente alguna vez has necesitado una diferencia de horas, minutos ó simples segundos, ...
  #1 (permalink)  
Antiguo 02/12/2008, 11:44
 
Fecha de Ingreso: agosto-2008
Mensajes: 82
Antigüedad: 5 años, 11 meses
Puntos: 3
De acuerdo Convertir Segundos a Horas Minutos Segundos

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 ! ! !

Última edición por NA1TM3R; 02/12/2008 a las 12:03
  #2 (permalink)  
Antiguo 02/12/2008, 11:56
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.668
Antigüedad: 7 años, 6 meses
Puntos: 124
Respuesta: Convertir Segundos a Horas Minutos Segundos

Hola, NA1TM3R

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

Un saludo y continua así
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #3 (permalink)  
Antiguo 02/12/2008, 12:04
Avatar de AlZuwaga
Moderador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.554
Antigüedad: 13 años, 5 meses
Puntos: 534
Respuesta: Convertir Segundos a Horas Minutos Segundos

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:
Ver original
  1. fini = "FECHA INICIAL"
  2. fact = Now()
  3.    segundosonline = DateDiff("s", fini, fact)
  4.    minutosonline = Int(segundosonline/60)
  5.    horasonline = Int(minutosonline/60)
  6.    minutosmod = minutosonline Mod 60
  7.    segundosmod = segundosonline Mod 60 Mod 60 Mod 60
  8.    If(minutosmod<10) Then minutosmod ="0"&minutosmod End If
  9.    If(segundosmod<10) Then segundosmod ="0"&segundosmod End If
  10.    If segundosonline < 60 Then
  11.       tiempo = segundosonline&" segundos"
  12.    ElseIf segundosonline > 60 And segundosonline < 3600 Then
  13.       tiempo = minutosmod&":"&segundosmod&" minutos"
  14.    Else      tiempo = horasonline&":"&minutosmod&":"&segundosmod&" horas"
  15.    End If

Un saludo y gracias por el aporte (lo copio yo a la FAQ en su nombre... hecho)
__________________
...___...
  #4 (permalink)  
Antiguo 21/06/2010, 02:44
Avatar de SoulOverride  
Fecha de Ingreso: junio-2010
Ubicación: Girona
Mensajes: 1
Antigüedad: 4 años, 1 mes
Puntos: 0
Respuesta: Convertir Segundos a Horas Minutos Segundos

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)
  #5 (permalink)  
Antiguo 21/06/2010, 06:55
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.668
Antigüedad: 7 años, 6 meses
Puntos: 124
Respuesta: Convertir Segundos a Horas Minutos Segundos

Hola

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

Código ASP:
Ver original
  1. If(minutosmod<10) Then minutosmod ="0"&minutosmod End If
  2.    If(segundosmod<10) Then segundosmod ="0"&segundosmod End If
  3.    If segundosonline < 60 Then
  4.       tiempo = segundosonline&" segundos"
  5.    ElseIf segundosonline > 60 And segundosonline < 3600 Then
  6.       tiempo = minutosmod&":"&segundosmod&" minutos"
  7.    Else      tiempo = horasonline&":"&minutosmod&":"&segundosmod&" horas"
  8.    End If

Por otro lado, haces demasiadas operaciones matemáticas por no usar la función DateDiff()
De cualquier modo se agradece
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #6 (permalink)  
Antiguo 09/07/2010, 15:42
 
Fecha de Ingreso: enero-2008
Mensajes: 1
Antigüedad: 6 años, 6 meses
Puntos: 0
De acuerdo Respuesta: Convertir Segundos a Horas Minutos Segundos

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.
  #7 (permalink)  
Antiguo 09/07/2010, 16:11
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.668
Antigüedad: 7 años, 6 meses
Puntos: 124
Respuesta: Convertir Segundos a Horas Minutos Segundos

Cita:
Iniciado por PcSaurio Ver Mensaje
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!
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #8 (permalink)  
Antiguo 31/03/2011, 13:09
Avatar de arias_carlos1979  
Fecha de Ingreso: marzo-2011
Mensajes: 3
Antigüedad: 3 años, 3 meses
Puntos: 0
Respuesta: Convertir Segundos a Horas Minutos Segundos

de fabula me sirvio mucho.
  #9 (permalink)  
Antiguo 12/04/2011, 06:35
 
Fecha de Ingreso: octubre-2000
Mensajes: 1.691
Antigüedad: 13 años, 8 meses
Puntos: 19
Respuesta: Convertir Segundos a Horas Minutos Segundos

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
__________________
PD: Con amor, fe, amor a Dios y amistad podemos hacer un mundo mejor!!!!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 19:56.
SEO by vBSEO 3.3.2