VBA: VB - Muunna tunnit desimaaliin ja desimaali-tuntiin
![](http://img.brin-designs.com/img/games/845/vba-vb-convert-hours-decimal.png)
Sub ConvertHoursIntoDecimal () Dim D Datalle, TB, Tulos yhtenäisenä Esimerkiksi se voi olla merkkijonossa D = "12:15" TB = Split (D, ":") Tulos = TB (0) + (( TB (1) * 100) / 60) / 100 End Sub
Sub ConvertDecimalIntoHours () Dim D yhtenä, tulos, e 'Esimerkiksi D = 1, 25 e = CStr (pyöreä ((D - Int (D)) / 100 * 60, 2)) & "0" Tulos = CStr (Int ( D)) & ":" & Mid (e, 3, 2) End Sub