VBA: VB - Saatleri ondalık, saatleri ondalık

 Alt ConvertHoursIntoDecimal () Dim D Tarih, TB, Tek Olarak Sonuç 'Örneğin, D = "12:15" TB = Bölünmüş (D, ":") olabilir. Sonuç = TB (0) + (( TB (1) * 100) / 60) / 100 Son Sub 

 Alt ConvertDecimalIntoHours () Dim D Tekli, Sonuç, e 'Örneğin D = 1.25 e = CStr (Yuvarlak ((D - Int (D)) / 100 * 60, 2)) & "0" Sonuç = CStr (Int ( D)) & ":" & Orta (e, 3, 2) Bitiş Alt