Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Crear cuenta

Visual Basic.NET - Convertir numero en horas

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:Convertir numero en horas
Autor:vlg (48 intervenciones)
Fecha:05/02/2007 21:05:50
Hola , tengo el siguiente problema, al obtener el valor de una hoja de calculo que esta en formato hora "1:13:47" en la rutina de vb.net me retorna un numero "0,051235" , la pregunta es la siguiente como puedo hacer para mantener el formato de hora osea que en vb.net obtenga "1:13:47" y no "0,051235"

Gracias por vuestra atencion
Responder Subir
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:lo tengo
Autor:vlg (48 intervenciones)
Fecha:06/02/2007 09:31:00
Public Function HourDec(h As Variant) As Variant
If Not IsNull(h) Then
HourDec = Hour(h) + Minute(h) / 60 + Second(h) / 3600
End If
End Function

Public Function DecHour(h As Variant) As Variant
Dim nHour As Integer
Dim nMinutes As Integer
Dim nSeconds As Integer

nHour = Int(h)
nMinutes = Int((h - nHour) * 60)
nSeconds = Int(((h - nHour) * 60 - nMinutes) * 60)
DecHour = nHour & ":" & nMinutes & ":" & nSeconds
End Function

Ejemplo:

Private Sub Command1_Click()
Dim h As Single
Dim d As String
Cls
d = "10:37:58"
h = HourDec(d)
Print "Hora Decimal = "; d
Print "Hora Estándar = "; h
Print "Hora de Decimal a Estándar = "; DecHour(h)
End Sub

El parámetro
Comentar Subir