VBA: VB - Converta Horas em Decimais e Decimais em Horas

 Sub ConvertHoursIntoDecimal () Dim D Como Date, TB, Result As Single 'Por exemplo, pode ser uma string D = "12:15" TB = Split (D, ":") Resultado = TB (0) + (( TB (1) * 100) / 60) / 100 End Sub 

 Sub ConvertDecimalIntoHours () Dim D Como Single, Result, e 'Por exemplo, D = 1, 25 e = CStr (Round ((D - Int (D)) / 100 * 60, 2)) & "0" Resultado = CStr (Int () D)) & ":" & Mid (e, 3, 2) End Sub