VBA: VB - : Convertir hora > decimal ydecimal > HoraJunio 2014

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

Este documento intitulado « VBA: VB - : Convertir hora > decimal y decimal > Hora » de Kioskea (es.kioskea.net)esta puesto a diposición bajo la licencia Creative Commons. Puede copiar, modificar bajo las condiciones puestaspor la licencia, siempre que esta nota sea visible.