VBA: VB - Converti le ore in decimale e decimale in ore

 Sub ConvertHoursIntoDecimal () Dim D As Date, TB, Result As Single 'Ad esempio, può essere a una stringa D = "12:15" TB = Split (D, ":") Result = TB (0) + (( TB (1) * 100) / 60) / 100 End Sub 

 Sub ConvertDecimalIntoHours () Dim D As Single, Result, e 'Ad esempio D = 1.25 e = CStr (Round ((D - Int (D)) / 100 * 60, 2)) e "0" Risultato = CStr (Int ( D)) & ":" & Mid (e, 3, 2) End Sub