डबल चर प्रकार
वीबीए दोहरा डेटा प्रकार का उपयोग उन संख्याओं को संग्रहीत करने के लिए किया जाता है जिनके लिए दशमलव स्थानों की आवश्यकता होती है। यह नकारात्मक मूल्यों के लिए -1.79769313486231E308 से -4.94065645841247E-324 और सकारात्मक मूल्यों के लिए 4.94065645841247E-324 से 1.79769313486232E308 तक स्टोर कर सकता है।
डबल वैरिएबल घोषित करने के लिए, आप डिम स्टेटमेंट (आयाम के लिए छोटा) का उपयोग करते हैं:
| 1 | डबल के रूप में मंद dblA |
फिर, एक चर के लिए एक मान निर्दिष्ट करने के लिए, बस बराबर चिह्न का उपयोग करें:
| 1 | डीएलबीए = 3658.25 |
इसे एक प्रक्रिया में रखना इस तरह दिखता है:
| 12345678 | उप डीबीएलउदाहरण ()'डबल वैरिएबल घोषित करें'डबल के रूप में मंद dblA'डबल वेरिएबल को पॉप्युलेट करें'डीबीएलए = 3658.25'संदेश बॉक्स दिखाएं'संदेशबॉक्स डीबीएलएअंत उप |
यदि आप ऊपर दिए गए कोड को चलाते हैं, तो निम्न संदेश बॉक्स दिखाया जाएगा।
एकल डेटा प्रकार
सिंगल डेटा टाइप डबल डेटा टाइप का सिर्फ एक छोटा वर्जन है। इस तथ्य के कारण, यह किसी प्रक्रिया में उपयोग किए जाने पर गोलाई को प्रभावित कर सकता है क्योंकि एकल डेटा प्रकार 4 दशमलव स्थानों तक होगा, जबकि डबल डेटा प्रकार 12 दशमलव स्थानों तक होगा। यदि आपको डबल डेटा प्रकार की आवश्यकता नहीं है, तो आप एकल डेटा प्रकार का उपयोग कर सकते हैं
इंट या लांग डेटा प्रकार
यदि आपको दशमलव स्थान की आवश्यकता नहीं है, तो आप या तो इंट डेटा प्रकार या लंबे डेटा प्रकार का उपयोग कर सकते हैं।
| 1 | पूर्णांक के रूप में मंद intA |
| 1 | मंद lngB के रूप में Long |
मॉड्यूल या वैश्विक स्तर पर डबल वैरिएबल घोषित करें
पिछले उदाहरणों में, हमने एक प्रक्रिया के भीतर डबल वैरिएबल घोषित किया है। एक प्रक्रिया के साथ घोषित चर का उपयोग केवल उस प्रक्रिया के भीतर ही किया जा सकता है।
इसके बजाय, आप मॉड्यूल या वैश्विक स्तर पर डबल चर घोषित कर सकते हैं।
मॉड्यूल स्तर
मॉड्यूल स्तर कोड मॉड्यूल के शीर्ष पर चर घोषित किए जाते हैं धुंधला बयान।
इन चरों का उपयोग उस कोड मॉड्यूल में किसी भी प्रक्रिया के साथ किया जा सकता है।
वैश्विक स्तर
वैश्विक स्तर कोड मॉड्यूल के शीर्ष पर चर भी घोषित किए जाते हैं। हालांकि, का उपयोग करने के बजाय धुंधला कथन, का उपयोग करें सह लोक यह इंगित करने के लिए कथन कि डबल वैरिएबल आपके पूरे VBA प्रोजेक्ट में उपयोग के लिए उपलब्ध है।
| 1 | सार्वजनिक DblA डबल के रूप में |
यदि आप एक मॉड्यूल स्तर पर दोहरे चर की घोषणा करते हैं और फिर इसे किसी भिन्न मॉड्यूल में उपयोग करने का प्रयास करते हैं, तो एक त्रुटि होगी।
हालाँकि, यदि आपने डबल वेरिएबल घोषित करने के लिए सार्वजनिक कीवर्ड का उपयोग किया था, तो त्रुटि नहीं होगी और प्रक्रिया पूरी तरह से चलेगी।
स्ट्रिंग के रूप में संग्रहीत डबल प्रारूपित करें
एक समय हो सकता है जब आप एक डबल डेटा प्रकार को एक स्ट्रिंग में प्रारूपित करना चाहते हैं - उदाहरण के लिए आप एक मुद्रा प्रतीक प्रदर्शित करना चाहते हैं और संख्या को 2 दशमलव स्थानों पर गोल कर सकते हैं।
इसे प्राप्त करने के लिए, आप प्रारूप फ़ंक्शन का उपयोग करते हैं।
निम्नलिखित प्रक्रिया
| 1234567891011 | सब टेस्ट डबल टू करेंरेंसीस्ट्रिंग ()'स्ट्रिंग वैरिएबल घोषित करें'स्ट्रिंग के रूप में मंद strMoney'डबल घोषित करें और मान को पॉप्युलेट करें'मंद dblValue डबल के रूप मेंdblValue = ४४०५५.२५६'दो दशमलव स्थानों के साथ मुद्रा प्रतीक के साथ डबल को स्ट्रिंग में कनवर्ट करेंstrMoney = प्रारूप (dblValue, "$#,##0.00")'परिणाम देखें'MsgBox strMoneyअंत उप |
यह परिणाम लौटाएगा:
इसी प्रकार, हो सकता है कि आप किसी संख्या को स्वरूपित फ़ोन नंबर के रूप में प्रदर्शित करना चाहें।
यह कार्यविधि:
| 1234567891011 | सब टेस्टडबलटॉफोन ()'स्ट्रिंग वैरिएबल घोषित करें'स्ट्रिंग के रूप में मंद strPhone'डबल घोषित करें और मान को पॉप्युलेट करें'मंद dblValue डबल के रूप मेंdblValue = ५५५९६८५४१'मुद्रा प्रतीक के साथ डबल को स्ट्रिंग में कनवर्ट करें'strPhone = प्रारूप (dblValue, "(000) -000 0000")'परिणाम देखें'MsgBox strPhoneअंत उप |
यह परिणाम लौटाएगा:
