VBA: VB - แปลงชั่วโมงเป็นทศนิยมและทศนิยมให้เป็นชั่วโมง

 Sub ConvertHoursIntoDecimal () Dim D ณ วันที่, TB, ผลลัพธ์เป็น Single 'ตัวอย่างเช่นสามารถเป็นสตริง D = "12:15" TB = แยก (D, ":" ผลลัพธ์ = TB (0) + (( TB (1) * 100) / 60) / 100 Sub Sub 

 Sub ConvertDecimalIntoHours () Dim D เป็น Single, ผลลัพธ์, e 'ตัวอย่างเช่น D = 1.25 e = CStr (รอบ ((D - Int (D)) / 100 * 60, 2)) & "0" ผลลัพธ์ = CStr (Int ( D)) & ":" & Mid (e, 3, 2) Sub Sub