FUNCION PARA PASAR DE SEGUNDOS A HORAS EN VISUAL BASIC .NET

Aqui os dejo una función para aquellos que necesiteis pasar de un valor en segundos a un valor de HORAS : MINUTOS : SEGUNDOS.

Shared Function sPasar_Segundos_a_Horas(ByVal lSegundos As Object) As String         Try             Dim iMinutos As Integer             Dim iHoras As Integer             Dim iSegundos As Integer             Dim lSegundosHora As Integer = 3600             iHoras = lSegundos \ lSegundosHora             iMinutos = (lSegundos Mod lSegundosHora) \ 60             iSegundos = (lSegundos Mod lSegundosHora) Mod 60             sPasar_Segundos_a_Horas = iHoras & ":" & _                                       Format(iMinutos, "00")             sPasar_Segundos_a_Horas = sPasar_Segundos_a_Horas & ":" & _                                        Format(iSegundos, "00")         Catch ex As Exception             sPasar_Segundos_a_Horas = "00:00:00"         End Try     End Function

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI