वीबीए: तारीख को सप्ताह संख्या में कैसे बदलें

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

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i))
    Next i
    
End Sub

यह विशेष उदाहरण A2:A9 श्रेणी में प्रत्येक तिथि के लिए सप्ताह संख्या ढूंढेगा और परिणाम B2:B9 श्रेणी में प्रदर्शित करेगा।

ध्यान दें कि वीबीए वीकनम पद्धति मानती है कि सप्ताह रविवार को शुरू होते हैं।

सप्ताह की शुरुआत के रूप में एक और दिन निर्दिष्ट करने के लिए, आप WeekNum पद्धति में दूसरा तर्क जोड़ सकते हैं:

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i), vbMonday)
    Next i
    
End Sub

निम्नलिखित उदाहरण दिखाता है कि अभ्यास में दिनांकों को सप्ताह संख्याओं में परिवर्तित करने के लिए WeekNum विधि का उपयोग कैसे करें।

उदाहरण: VBA में दिनांक को सप्ताह संख्या में बदलें

मान लीजिए हमारे पास एक्सेल में निम्नलिखित दिनांक कॉलम है:

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

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

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i))
    Next i
    
End Sub

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

कॉलम बी, कॉलम ए में प्रत्येक तिथि के लिए सप्ताह संख्या प्रदर्शित करता है, यह मानते हुए कि सप्ताह रविवार को शुरू होता है।

यदि आप सप्ताह की शुरुआत के रूप में कोई अन्य दिन निर्दिष्ट करना चाहते हैं, उदाहरण के लिए सोमवार, तो आप निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i), vbMonday)
    Next i
    
End Sub

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

कॉलम बी अब कॉलम बी में प्रत्येक तिथि के लिए सप्ताह संख्या प्रदर्शित करता है, यह मानते हुए कि सप्ताह सोमवार को शुरू होता है।

नोट : आप वीबीए वीकनम पद्धति के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

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

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

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