VBA: VB - Tundide teisendamine kümnendkohani ja kümnend-tund

 Sub ConvertHoursIntoDecimal () D D (Kuupäev), TB (TB), Tulemus kui Single (Üksikuna) Näiteks võib see olla stringis D = "12:15" TB = Split (D, ":") Tulemus = TB (0) + (( TB (1) * 100) / 60) / 100 End Sub 

 Sub ConvertDecimalIntoHours () Dim D ühekordselt, tulemus, e 'Näiteks D = 1, 25 e = CStr (ümar ((D - Int (D)) / 100 * 60, 2)) & "0" Tulemus = CStr (Int ( D)) & ":" & Mid (e, 3, 2) Lõpeta alam