यह ट्यूटोरियल प्रदर्शित करेगा कि किसी व्यंजक को पूर्णांक डेटा प्रकार में बदलने के लिए CInt VBA फ़ंक्शन का उपयोग कैसे करें।
सीआईएनटी फंक्शन
वीबीए सीआईएनटी अभिव्यक्ति को इंटीजर में कनवर्ट करें
VBA CInt फ़ंक्शन का उपयोग अभिव्यक्तियों को VBA कोड के अंदर पूर्णांक डेटा प्रकार में बदलने के लिए किया जा सकता है। परिणामी संख्या को पूर्णांक बनने के लिए गोल किया जाता है।
123456 | उप CIntउदाहरण_1()MsgBox CInt(१२.३४) 'परिणाम है: 12MsgBox CInt(१२.३४५) 'परिणाम है: 12MsgBox CInt(-124) 'परिणाम है: -124MsgBox CInt(-12.34) 'परिणाम है: -12अंत उप |
वीबीए सीआईएनटी राउंडिंग
VBA CInt फ़ंक्शन किसी संख्या प्रकार या संख्या जैसे व्यंजक के दशमलव भाग को गोल करेगा। हालांकि, यह सभी मामलों में सही ढंग से गोल नहीं होता है। जब दशमलव भाग 0.5 होता है तो VBA CInt फ़ंक्शन निकटतम सम पूर्णांक देता है।
12345678910111213141516 | उप CIntExample_2()संदेशबॉक्स सीआईएनटी(0.34)'परिणाम है: 0संदेशबॉक्स सीआईएनटी(0.99)'परिणाम है: 1संदेशबॉक्स सीआईएनटी(-124.95)'परिणाम है: -125संदेशबॉक्स सीआईएनटी(1.5)'परिणाम है: 2संदेशबॉक्स सीआईएनटी(2.5)'परिणाम है: 2अंत उप |
वीबीए सिंट फ़ंक्शन के व्यवहार को अपेक्षित में बदलने के लिए हम अपने अपेक्षित दशमलव मान में अपेक्षाकृत छोटा दशमलव संख्या जोड़ सकते हैं।
1234567891011 | उप CIntExample_3()संदेशबॉक्स सीआईएनटी(2.5)'परिणाम है: 2संदेशबॉक्स सीआईएनटी(2.5 + 0.001)'परिणाम है: 3संदेशबॉक्स सीआईएनटी(१४.५)'परिणाम है: 14MsgBox CInt(१४.५ + ०.००१)'परिणाम है: 15अंत उप |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
वीबीए सीआईएनटी स्ट्रिंग्स को इंटीजर में कनवर्ट करना
VBA CInt फ़ंक्शन का उपयोग स्ट्रिंग्स को पूर्णांक में बदलने के लिए किया जा सकता है यदि स्ट्रिंग में वर्णों का अर्थ संख्याओं के रूप में है।
123456789101112131415161718 | उप CIntExample_4()स्ट्रिंग के रूप में डिम स्ट्रेक्सस्ट्रेक्स = "112"संदेशबॉक्स सीआईएनटी (स्ट्रेक्स)'परिणाम है: 112स्ट्रेक्स = "112.3"संदेशबॉक्स सीआईएनटी (स्ट्रेक्स)'परिणाम है: 112 -> 112.3 गोल हैस्ट्रेक्स = "11,2"संदेशबॉक्स सीआईएनटी (स्ट्रेक्स)'परिणाम है: 112 -> , पर ध्यान नहीं दिया जाता हैस्ट्रेक्स = "$112"संदेशबॉक्स सीआईएनटी (स्ट्रेक्स)'परिणाम है: 112 -> $ को अनदेखा किया जाता है'अंत उप |
वीबीए सीआईएनटी रन-टाइम त्रुटि 13 प्रकार बेमेल
गैर-संख्यात्मक वर्णों वाले स्ट्रिंग्स के साथ VBA Cint फ़ंक्शन का उपयोग करना या ऐसे वर्ण जिनका संख्यात्मक संदर्भ में कोई अर्थ नहीं है, के परिणामस्वरूप रन-टाइम त्रुटि '13' होगी: बेमेल टाइप करें।
1234567 | उप CIntExample_5()'नीचे दिए गए कोड के परिणामस्वरूप एक त्रुटि संदेश होगा''सीआईएनटी गैर-संख्यात्मक वर्णों को संभाल नहीं सकता'स्ट्रिंग के रूप में डिम स्ट्रेक्सस्ट्रेक्स = "एबी13"संदेशबॉक्स सीआईएनटी (स्ट्रेक्स)अंत उप |
वीबीए सीआईएनटी रन-टाइम त्रुटि 6 ओवरफ्लो
स्ट्रिंग्स के साथ VBA Cint फ़ंक्शन का उपयोग करना जिसके परिणामस्वरूप मान अपेक्षित पूर्णांक से छोटा या बड़ा होता है, जिसके परिणामस्वरूप रन-टाइम त्रुटि '6': ओवरफ़्लो होगी। एक्सेल में पूर्णांक डेटा प्रकार का अपेक्षित मूल्य -32768 से 32767 है।
1234567 | उप CIntExample_6()'नीचे दिए गए कोड के परिणामस्वरूप एक त्रुटि संदेश होगा''CInt गैर-संख्यात्मक वर्णों को संभाल नहीं सकता'स्ट्रिंग के रूप में डिम स्ट्रेक्सस्ट्रेक्स = "1234567"संदेशबॉक्स सीआईएनटी (स्ट्रेक्स)अंत उप |
VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!
वीबीए सीआईएनटी क्षेत्रीय सेटिंग्स
वीबीए सीआईएनटी फ़ंक्शन में कॉमा या डॉट के साथ स्ट्रिंग्स को परिवर्तित करने वाला अलग व्यवहार है। यह दशमलव विभाजक और अंक विभाजक के लिए ऑपरेटिंग सिस्टम की क्षेत्रीय सेटिंग्स का उपयोग करता है।
12345678910111213141516 | उप CIntExample_7()स्ट्रिंग के रूप में डिम स्ट्रेक्सस्ट्रेक्स = "1,9"संदेशबॉक्स सीआईएनटी (स्ट्रेक्स)'यदि क्षेत्रीय सेटिंग्स में समूह विभाजक के रूप में है तो''परिणाम है: 19'यदि क्षेत्रीय सेटिंग्स में , दशमलव विभाजक के रूप में है तो'परिणाम है: 2 (2 क्योंकि 1.9 गोल हो जाता है)स्ट्रेक्स = "1.9"संदेशबॉक्स सीआईएनटी (स्ट्रेक्स)'यदि क्षेत्रीय सेटिंग्स में . तब एक समूह विभाजक के रूप में'परिणाम है: 19'यदि क्षेत्रीय सेटिंग्स में . दशमलव विभाजक के रूप में तब'परिणाम है: 2 (2 क्योंकि 1.9 गोल हो जाता है)अंत उप |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
वीबीए सीआईएनटी बुलियन को इंटीजर में कनवर्ट करना
VBA Cint फ़ंक्शन बूलियन चर को पूर्णांक में बदल सकता है। यदि मूल्यांकित व्यंजक सत्य है तो परिणामी पूर्णांक -1 है और यदि मूल्यांकन किया गया व्यंजक असत्य है, तो परिणामी पूर्णांक 0 है।
12345678910 | उप CIntExample_8()बूलियन के रूप में मंद बूलेक्सबूलएक्स = ट्रूMsgBox CInt(BoolEx) 'परिणाम है: -1MsgBox CInt(2 = 2) 'परिणाम है: -1बूलएक्स = गलतMsgBox CInt(BoolEx) 'परिणाम है: 0MsgBox CInt(1 = 2) 'परिणाम है: 0अंत उप |
VBA Cint दिनांकों को पूर्णांकों में परिवर्तित कर रहा है
VBA Cint फ़ंक्शन दिनांक चर को पूर्णांक में बदल सकता है। लौटाया गया मान वह आंतरिक संख्या है जिसका उपयोग एक्सेल द्वारा दिनांक भंडारण को गोल करने के लिए किया जाता है। यदि वह संख्या VBA के लिए अपेक्षित पूर्णांक सीमा से बाहर है तो हमें एक रन-टाइम त्रुटि '6' मिलती है: अतिप्रवाह।
123456789 | उप CIntExample_9()मंद दिनांकपूर्व तिथि के रूप मेंडेटएक्स = #2/3/1940#MsgBox सीआईएनटी (डेटएक्स)'परिणाम है: 14644डेटएक्स = #8/7/1964#MsgBox सीआईएनटी (डेटएक्स)'परिणाम है: 23596अंत उप |