VBA: VB - घंटे को दशमलव में और दशमलव को घंटे में बदलें

 उप ConvertHoursIntoDecimal () मंद डी के रूप में दिनांक, टीबी, परिणाम एकल के रूप में 'उदाहरण के लिए, यह एक स्ट्रिंग में हो सकता है डी = "12:15" टीबी = स्प्लिट (डी, ":") परिणाम = टीबी (0) + ( टीबी (1) * 100) / 60) / 100 अंत उप 

 उप ConvertDecimalIntoHours () मंद डी के रूप में एकल, परिणाम, उदाहरण के लिए D = 1.25 e = CStr (राउंड ((D - Int) (D)) / 100 * 60, 2)) और "0" परिणाम / CStr (Int) डी)) और ":" और मिड (ई, 3, 2) एंड सब 
पिछला लेख अगला लेख

शीर्ष युक्तियाँ