VBA: VB - Konwertuj godziny na dziesiętne i dziesiętne na godziny

 Sub ConvertHoursIntoDecimal () Dim D jako data, TB, wynik jako pojedynczy 'Na przykład, może to być ciąg D = "12:15" TB = Podział (D, ":") Wynik = TB (0) + (( TB (1) * 100) / 60) / 100 End Sub 

 Sub ConvertDecimalIntoHours () Dim D jako Single, Result, e 'Na przykład D = 1, 25 e = CStr (Round ((D - Int (D)) / 100 * 60, 2)) & „0” Wynik = CStr (Int ( D)) & „:” & Mid (e, 3, 2) End Sub