Segundos en horas, minutos y segundos en Visual Basic 6 (vb6)
Bienvenidos a VerTutoriales.com, en esta ocasión vamos a ver una función a la que se le pasan segundos y lo convierte en un formato de horas, minutos y segundos.
La operación veremos que es muy sencilla y utilizaremos la función mod() que nos devuelve el resto de un número, de esta manera podremos seguir desglosando tanto como queramos, en nuestro caso, en horas, minutos y segundos.
Veamos la función y pasamos más adelante a explicarla:
Function FormatoMinutos(segundos) As String
Dim aHoras As Integer
Dim aMinutos As Integer
Dim aSegundos As Integer
aHoras = segundos / 3600
aMinutos = (segundos Mod 3600) / 60
aSegundos = ((segundos Mod 3600) Mod 60)
FormatoMinutos = Right$(“0″ & aHoras, 2) & “:” & Right$(“0″ & aMinutos, 2) & “:” & Right$(“0″ & aSegundos, 2)Â Â Â EndFunction
Como podéis ver, la función recibe un parámetro segundos, que es el total de segundos que queremos desglosar en horas y minutos, a continuación simplemente dividimos los segundos en 3600 (que son los segundos de una hora) de esta manera obtenemos las horas, más adelante tomamos el resto de 3600 y partimos denuevo en 60, para conseguir los minutos, y una tercera vez, para conseguir los segundos restantes.
Luego simplemente le damos formato, yo he optado por dar formato “00:00:00″ aunque podéis poner el que queráis, es más podéis utilizar la función format() para designar un formato y que os lo devuelva en formato date/time.
Espero que os sirva!
Un saludo!
Más video tutoriales para que aprendas...
Encuentre…
Insertar al RSS los comentarios de esta entrada
Escribe tu comentario