Visual Basic - segundos -> h/m/s

Life is soft - evento anual de software empresarial
   
Vista:

segundos -> h/m/s

Publicado por Jaime (3 intervenciones) el 19/03/2008 19:28:36
como podria hacer para pasar un numero que esta en segundos a horas, minutos y segundos (5000 por ejemplo a 1h 23m 20s)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:segundos -> h/m/s

Publicado por lolo (163 intervenciones) el 19/03/2008 22:08:41
pos lo divides y ya esta

no sabes que 60 segundos en un minuto y 60 minutos es una hota y 24 horas es un dia y que 7 dias es una semana y 365 dias (cada 4 años) es un año?

fuiste al colegio de pequeño?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Juan Carlos

RE:segundos -> h/m/s

Publicado por Juan Carlos (106 intervenciones) el 20/03/2008 05:58:07
Probá con un Command y dos TextBox
En el Text1 pones los segundos y en el Text2 te los presenta convertidos

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) 3600 & " h " & _
(Val(Text1.Text) Mod (3600)) 60 & " min " & _
(Val(Text1.Text) Mod (3600)) Mod (60) & " s"
End Sub

Fijate si funciona
Ojo que la barra invertida está bien, es un operador que devuelven la parte entera de la división.
Saludos cordiales
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:segundos -> h/m/s

Publicado por Espaguetti (1 intervención) el 16/02/2009 19:25:43
Aquí está, te aseguro que es efectiva...

Private Sub Command1_Click()

'Declaro Horas como enteros.
Dim Horas As Integer
'Declaro Minutos como enteros.
Dim Minutos As Integer
'Declaro Segundos como enteros.
Dim Segundos As Integer

'Horas es igual al valor numérico (del text1.text) entre (/) 3600, este código se utilizará para calcular las horas de un determinado número entero.
Horas = Val(Text1.Text) 3600
'Minutos es igual al valor numérico (del text1.text)pero sólo el exedente de la operación de Horas, entre (/) 60. Se aplica este código para calcular los minutos restantes, después de horas enteras, de un número determinado.
Minutos = Val(Text1.Text Mod 3600) 60
'Segundos es igual a valor numérico (del text1.text) pero sólo el exedente de horas y minutos, cuando todas las fórmulas se han agotado, los números individibles entre las horas y minutos, quedan en último término en el apartado de segundos.
Segundos = Val((Text1.Text Mod 3600) Mod 60)

'El text2 será igual al cálculo de las horas del text1.
Text2.Text = Horas
'El text3 será igual al cálculo de las horas del text1.
Text3.Text = Minutos
'El text4 será igual al cálculo de las horas del text1.
Text4.Text = Segundos

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar