VBA महीना समारोह - तारीख से महीना नंबर कैसे प्राप्त करें?

एक्सेल VBA महीना

VBA महीना फ़ंक्शन एक इनबिल्ट फ़ंक्शन है जिसका उपयोग किसी दिनांक से महीने के लिए किया जाता है और इस फ़ंक्शन द्वारा दिया गया आउटपुट 1 से 12 तक पूर्णांक होता है। यह फ़ंक्शन केवल आपूर्ति की गई दिनांक से महीने की संख्या निकालता है।

उदाहरण के लिए, यदि तारीख 28-मई-2019 है, तो इस तारीख से महीने की संख्या निकालने के लिए, हम MONTH फ़ंक्शन का उपयोग कर सकते हैं।

VBA में मंथ फंक्शन का उपयोग कैसे करें?

नीचे MONTH फ़ंक्शन का सिंटैक्स है।

हमें केवल वह तारीख प्रदान करने की आवश्यकता है जिससे हम महीने की संख्या निकालने की कोशिश कर रहे हैं।

उदाहरण 1

हम देखेंगे कि तारीख से महीने की संख्या निकालने के लिए एक कोड कैसे लिखना है। हम तारीख को "10 ^वें अक्टूबर 2019" के रूप में लेंगे ।

चरण 1: मैक्रो प्रक्रिया प्रारंभ करें।

कोड:

उप माह_उपकरण 1 () उप उप

चरण 2: दिनांक मान को रखने के लिए चर को परिभाषित करें। चूँकि हम डेटा वैल्यू स्टोर कर रहे हैं, हमारा डेटा टाइप "दिनांक" होना चाहिए। इसलिए चर घोषित करें और घोषित चर के लिए डेटा प्रकार को "दिनांक" के रूप में निर्दिष्ट करें।

कोड:

उप माह_उपकरण 1 () अंतिम तिथि के रूप में डिम डीडीट उप

चरण 3: इस चर के लिए, १० ^वीं अक्टूबर २०१ ९ की तारीख मान निर्दिष्ट करें ।

कोड:

उप माह_Example1 () दिनांक डीडी के रूप में डिम डीडीट = "10 अक्टूबर 2019" अंत उप

चरण 4: अब एक और चर को "पूर्णांक" घोषित करने के लिए माह संख्या निर्दिष्ट करें।

कोड:

सब महीना_ एक्सप्लोम 1 () डिम डेडेट एज़ डेट डिम मंथनम एज़ इंटर्गर डीडेट = "10 अक्टूबर 2019" एंड सब

नोट: जिस कारण से हमने वैरिएबल को इंटेगर घोषित किया है क्योंकि हमारी महीने की गिनती केवल 12 पर समाप्त होती है। तो पूर्णांक डेटा प्रकार इस संख्या को पकड़ सकता है।

चरण 5: इस चर के लिए, हम MONTH फ़ंक्शन खोलेंगे।

कोड:

उप महीना_Example1 () डिम डेडेट के रूप में दिनांक मंद माहवारी पूर्णांक तिथि के रूप में = "10 अक्टूबर 2019" महीना = महीना (अंत उप

चरण 6: महीने की संख्या निकालने के लिए आपूर्ति की जाने वाली "तिथि" पूछने वाला महीना कार्य। चूँकि हमने पहले ही लक्षित तिथि को "DDate" पर संग्रहीत कर लिया है, इसलिए इस चर को महीने के कार्य के लिए इनपुट पैरामीटर के रूप में आपूर्ति करें।

कोड:

सब महीना_ एक्सप्लोम 1 () डिम डेडेट एज़ डेट डिम मंथनम एज़ इंटीग्रेटेड डीडीट = "१० अक्टूबर २०१ ९" मंथनम = महीना (डीडीट) एंड सब

चरण 7: अब "महीना" फ़ंक्शन आपूर्ति की गई तारीख से चर "महीना" पर वापस आ जाएगा और अंत में VBA में एक संदेश बॉक्स में परिणाम दिखाएगा।

कोड:

उप महीना_Example1 () डिम डेडेट के रूप में दिनांक मंद माहवारी पूर्णांक डीडीनेट के रूप में = "10 अक्टूबर 2019" माहनाम = महीना (डीडीएट) MsgBox माहनाम अंत उप

कोड को रन करें और संदेश बॉक्स में महीने की संख्या देखें।

आउटपुट:

तो, आपूर्ति की गई तारीख से महीने की संख्या 10 है, यानी अक्टूबर महीने।

उदाहरण # 2

अब हम कोडिंग के लिए सेल संदर्भ लेंगे। नीचे हम कार्यपत्रक में दिनांक है।

इसलिए सेल A2 दिनांक मान से, हमें सेल बी 2 को महीना संख्या निकालने की आवश्यकता है।

कोड:

उप माह_Example2 () रेंज ("बी 2")। मान = अंत उप

MONTH फ़ंक्शन खोलें और दिनांक को RANGE A2 मान के रूप में आपूर्ति करें।

कोड:

उप माह_Example2 () रेंज ("बी 2")। मान = महीना (रेंज ("ए 2")) अंतिम उप

कारण है कि हमने रेंज ए 2 सेल की आपूर्ति की है क्योंकि इस बार, हमारी तारीख सेल ए 2 में है, इसलिए यही संदर्भ होगा।

अब कोड निष्पादित करें और सेल बी 2 में महीने से नंबर प्राप्त करें।

यहां आप जाते हैं, हमें सेल बी 2 में महीने का नंबर मिला है।

उदाहरण # 3

हमने एकल-कक्ष तिथि के लिए महीना निकाला है, लेकिन क्या होगा अगर हमारे पास नीचे की तरह डेटा की कई पंक्तियाँ हों।

इन मामलों में, हमें कोशिकाओं के माध्यम से लूप करना होगा और प्रत्येक संबंधित तिथि से महीने की संख्या निकालने के कार्य को निष्पादित करना होगा।

नीचे दिया गया कोड हमारे लिए काम करेगा।

कोड:

उप माह_उत्पाद 3 () डिम के रूप में लंबे समय तक के लिए = 2 से 12 सेल (के, 3)। वाल्यू = महीना (सेल (के, 2)। वाल्यू) अगला कश्मीर एंड।

यह कोड क्या करेगा यह 2 से 12 तक पंक्तियों के माध्यम से लूप करेगा और दूसरे कॉलम से महीने की संख्या निकालकर तीसरे कॉलम में परिणाम को स्टोर करेगा।

यहां याद रखने योग्य बातें

• MONTH एक वर्कशीट फ़ंक्शन है, साथ ही VBA फ़ंक्शन भी।
• MONTH को मान्य तिथि संदर्भ अन्य वार की आवश्यकता है, हमें एक त्रुटि संदेश मिलेगा।
• यदि महीने की संख्या 12 है, तो यह एक त्रुटि संदेश फेंक देगा।