वीबीए का उपयोग करके महीने का पहला दिन कैसे खोजें (उदाहरण के साथ)

आप किसी विशेष सेल में तारीख के लिए महीने का पहला दिन ढूंढने के लिए दिन के तर्क के लिए 1 के मान के साथ VBA में DateSerial() फ़ंक्शन का उपयोग कर सकते हैं।

उदाहरण के लिए, आप सेल A1 में तारीख के लिए महीने का पहला दिन ढूंढने और सेल B1 में उस तारीख को वापस करने के लिए निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 dateVal = DateValue(Range(" A1 "))

Range(" B1 ").Value = DateSerial(Year(dateVal), Month(dateVal), 1)

उदाहरण के लिए, यदि सेल A1 में 1/5/2023 है, तो सेल B1 1/1/2023 लौटाएगा।

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

उदाहरण: महीने का पहला दिन ढूंढने के लिए VBA का उपयोग करें

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

मान लीजिए कि हम कॉलम ए में प्रत्येक तारीख के लिए महीने का पहला दिन ढूंढना चाहते हैं और कॉलम सी में संबंधित सेल में तारीख लौटाना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 SubFirstDayOfMonth ()

Dim i As Integer

For i = 2 To 11
    dateVal = DateValue(Range(" A " & i))
    Range(" C " & i).Value = DateSerial(Year(dateVal), Month(dateVal), 1)
Next i

End Sub

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

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

नोट #1: कोड में, हमने i = 2 से 11 के लिए उपयोग किया क्योंकि सेल A2 से A11 में वे तारीखें थीं जिनमें हमारी रुचि थी। आप जिस सेल का उपयोग करना चाहते हैं उसकी श्रेणी के आधार पर इस श्रेणी को बेझिझक बदल सकते हैं।

नोट #2 : आप VBA में DateSerial() फ़ंक्शन का संपूर्ण दस्तावेज़ यहां पा सकते हैं।

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

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

वीबीए में तिथि के अनुसार कैसे क्रमबद्ध करें
VBA में दो तिथियों के बीच if कैसे जोड़ें
वीबीए में दिनांक से अधिक की गणना कैसे करें