VBA: VB - : Convertir hora > decimal y decimal > Hora
A continuación veremos dos funciones utiles:
Sub ConvertirHoraEnDecimal()
Dim D As Date, TB, Resultado As Single
'Para el ejemplo, pero puede ser en string
D = "12:15"
TB = Split(D, ":")
Resultado = TB(0) + ((TB(1) * 100) / 60) / 100
End Sub
Sub ConvertirDecimalEnHora()
Dim D As Single, Resultado, e
'Para el ejemplo
D = 1.25
e = CStr(Round((D - Int(D)) / 100 * 60, 2)) & "0"
Resultado = CStr(Int(D)) & ":" & Mid(e, 3, 2)
End Sub
Consulta también
- VBA: VB - : Convertir hora > decimal y decimal > Hora
- Cómo calcular las horas en negativo [Resuelto] (Resuelto) » Foros - Excel
- Problemas con punto decimal en vb.net t mysql » Foros - Programación
- Insertar HORA en vb.net a SQL SERVER » Foros - Programación
- Movistar telefono atencion al cliente 24 horas » Fichas prácticas - Móviles
- Sumar horas en excel (Resuelto) » Foros - Excel
Publicado por Carlos-vialfa.
Última actualización: 10 de agosto de 2010 a las 16:41 por Carlos-vialfa.