VBA: VB - Pretvarjanje ur v decimalno in decimalno na ure
Sub ConvertHoursIntoDecimal () Dim D Kot Datum, TB, Rezultat Kot enojno 'Na primer, lahko je niz D = "12:15" TB = Split (D, ":") Rezultat = TB (0) + (( TB (1) * 100) / 60) / 100 End Sub
Sub ConvertDecimalIntoHours () Dim D Kot eno, Rezultat, e 'Na primer D = 1.25 e = CStr (Round ((D - Int (D)) / 100 * 60, 2)) & "0" Rezultat = CStr (Int ( D)) & ":" & Srednja (e, 3, 2) Konec Sub