यह ट्यूटोरियल एक्सप्रेशन को डबल डेटा टाइप में बदलने के लिए सीडीबीएल वीबीए फ़ंक्शन का उपयोग करने का तरीका दिखाएगा।
सीडीबीएल फंक्शन
VBA CDbl अभिव्यक्ति को पूर्णांक में बदलें
वीबीए सीडीबीएल फ़ंक्शन का उपयोग एक्सप्रेशन को वीबीए कोड के अंदर डबल डेटा प्रकार में बदलने के लिए किया जा सकता है।
| 123456 | उप सीडीबीएलउदाहरण_1()MsgBox CDbl(12.345) 'परिणाम है: 12.345MsgBox CDbl(-124) 'परिणाम है: -124MsgBox CDbl(0.000034) 'परिणाम है: 0.000034MsgBox CDbl(-12.000034) 'परिणाम है: -12.000034अंत उप |
वीबीए सीडीबीएल स्ट्रिंग को डबल में कनवर्ट करना
VBA CDbl फ़ंक्शन का उपयोग स्ट्रिंग्स को डबल्स में बदलने के लिए किया जा सकता है यदि स्ट्रिंग में वर्णों का अर्थ संख्याओं के रूप में है।
| 123456789101112131415161718 | उप सीडीबीएलउदाहरण_2()स्ट्रिंग के रूप में डिम स्ट्रेक्सस्ट्रेक्स = "112"MsgBox सीडीबीएल (StrEx)'परिणाम है: 112स्ट्रेक्स = "0.0003"MsgBox CDbl(StrEx)'परिणाम है: 0.0003स्ट्रेक्स = "११,०००२"MsgBox CDbl(StrEx)'परिणाम है: ११००००२, पर ध्यान नहीं दिया जाता हैस्ट्रेक्स = "$112"MsgBox CDbl(StrEx)'परिणाम है: 112 $ पर ध्यान नहीं दिया गया'अंत उप |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
वीबीए सीडीबीएल रन-टाइम त्रुटि 13 प्रकार बेमेल
गैर-संख्यात्मक वर्णों वाले स्ट्रिंग्स के साथ VBA CDbl फ़ंक्शन का उपयोग करना या ऐसे वर्ण जिनका संख्यात्मक संदर्भ में कोई अर्थ नहीं है, एक रन-टाइम त्रुटि '13': प्रकार बेमेल का परिणाम देगा।
| 1234567 | उप CDblExample_3()'नीचे दिए गए कोड के परिणामस्वरूप एक त्रुटि संदेश होगा''सीडीबीएल गैर-संख्यात्मक वर्णों को संभाल नहीं सकता'स्ट्रिंग के रूप में डिम स्ट्रेक्सस्ट्रेक्स = "एबी13"MsgBox CDbl(StrEx)अंत उप |
वीबीए सीडीबीएल क्षेत्रीय सेटिंग्स
वीबीए सीडीबीएल फ़ंक्शन में कॉमा या डॉट के साथ स्ट्रिंग्स को परिवर्तित करने का अलग व्यवहार है। यह दशमलव विभाजक और अंक विभाजक के लिए ऑपरेटिंग सिस्टम की क्षेत्रीय सेटिंग्स का उपयोग करता है।
| 12345678910111213141516 | उप CDblExample_4()स्ट्रिंग के रूप में डिम स्ट्रेक्सस्ट्रेक्स = "1,9"MsgBox CDbl(StrEx)'यदि क्षेत्रीय सेटिंग्स में समूह विभाजक के रूप में है तो'परिणाम है: 19'यदि क्षेत्रीय सेटिंग्स में , दशमलव विभाजक के रूप में है तो'परिणाम है: 1,9स्ट्रेक्स = "1.9"MsgBox CDbl(StrEx)'यदि क्षेत्रीय सेटिंग्स में . तब एक समूह विभाजक के रूप में'परिणाम है: 19'यदि क्षेत्रीय सेटिंग्स में . दशमलव विभाजक के रूप में तब'परिणाम है: 1.9अंत उप |
VBA CDbl बूलियन्स को डबल्स में कनवर्ट कर रहा है
VBA CDbl फ़ंक्शन बूलियन चर को युगल में बदल सकता है। यदि मूल्यांकन किया गया व्यंजक सत्य है तो परिणामी दोहरा -1 है और यदि मूल्यांकन किया गया व्यंजक असत्य है तो परिणामी दोहरा 0 है।
| 12345678910 | उप CDblExample_5()बूलियन के रूप में मंद बूलेक्सबूलएक्स = ट्रूMsgBox CDbl(BoolEx) 'परिणाम है: -1MsgBox CDbl(2 = 2) 'परिणाम है: -1बूलएक्स = गलतMsgBox CDbl(BoolEx) 'परिणाम है: 0MsgBox CDbl(1 = 2) 'परिणाम है: 0अंत उप |
VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!
वीबीए सीडीबीएल तिथियों को युगल में परिवर्तित कर रहा है
VBA CDbl फ़ंक्शन दिनांक चर को पूर्णांक में बदल सकता है। लौटाया गया मान वह आंतरिक संख्या है जिसका उपयोग एक्सेल द्वारा दिनांक भंडारण को गोल करने के लिए किया जाता है।
| 123456789101112 | उप CDblExample_6()मंद दिनांकपूर्व तिथि के रूप मेंडेटएक्स = #2/3/1940#MsgBox सीडीबीएल (डेटएक्स)'परिणाम है: 14644डेटएक्स = #8/7/1964 10:41:00 अपराह्न#MsgBox सीडीबीएल (डेटएक्स)'परिणाम है: 23596.9451388889डेटएक्स = #3/7/1934 11:32:04 पूर्वाह्न#MsgBox सीडीबीएल (डेटएक्स)'परिणाम है: 12485.4806018519'अंत उप |
