वीबीए: तारीख से महीना और वर्ष कैसे प्राप्त करें

किसी दिनांक से माह और वर्ष प्राप्त करने के लिए आप VBA में NumberFormat प्रॉपर्टी का उपयोग कर सकते हैं।

व्यवहार में इस संपत्ति का उपयोग करने का एक सामान्य तरीका यहां दिया गया है:

 SubGetMonthYear ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = DateValue(Range(" A " & i))
    Range(" C " & i).NumberFormat = " mm/yyyy "
Next i

End Sub

यह विशेष मैक्रो A2:A11 श्रेणी में प्रत्येक दिनांक के लिए महीना और वर्ष ढूंढता है और इन मानों को C2:C11 श्रेणी में संबंधित कक्षों में प्रदर्शित करता है।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: VBA में इस दिन में दिन जोड़ें

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित डेटा सेट है जिसमें किसी कंपनी द्वारा विभिन्न तिथियों पर की गई बिक्री के बारे में जानकारी है:

मान लीजिए कि हम दिनांक कॉलम में प्रत्येक सेल के लिए महीना और वर्ष प्राप्त करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubGetMonthYear ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = DateValue(Range(" A " & i))
    Range(" C " & i).NumberFormat = " mm/yyyy "
Next i

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि कॉलम सी में कॉलम ए में प्रत्येक संबंधित तारीख का महीना और वर्ष शामिल है।

ध्यान दें कि हमने तारीखों को महीनों के लिए दो अंकों और वर्षों के लिए चार अंकों के साथ प्रारूपित करने के लिए NumberFormat प्रॉपर्टी का उपयोग किया था।

यदि हम चाहें तो हम इन मानों को एक अलग प्रारूप में प्रदर्शित करना चुन सकते हैं।

उदाहरण के लिए, हम महीने को एक अंक के साथ प्रदर्शित करने के लिए निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं (यदि महीने में केवल एक अंक है) और वर्ष को दो अंकों के साथ प्रदर्शित कर सकते हैं:

 SubGetMonthYear ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = DateValue(Range(" A " & i))
    Range(" C " & i).NumberFormat = " m/yy "
Next i

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

अपनी इच्छानुसार महीने और वर्ष के मान प्रदर्शित करने के लिए विभिन्न स्वरूपण विकल्पों के साथ खेलने के लिए स्वतंत्र महसूस करें।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए में तारीखों की तुलना कैसे करें
VBA में स्ट्रिंग को दिनांक में कैसे परिवर्तित करें
वीबीए में दो तिथियों के बीच दिनों की गणना कैसे करें