वीबीए: दो तिथियों के बीच दिनों की गणना कैसे करें

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

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

यह विशेष उदाहरण श्रेणी A2:A7 और B2:B7 में संबंधित कक्षों में तिथियों के बीच दिनों की संख्या की गणना करेगा और परिणाम C2:C7 श्रेणी में लौटाएगा।

ध्यान दें कि DateDiff फ़ंक्शन में “D” तर्क निर्दिष्ट करता है कि हम दिनों के संदर्भ में दिनांक अंतर की गणना करना चाहते हैं।

दिनांक अंतर के लिए उपयोग की जा सकने वाली इकाइयों की पूरी सूची के लिए VBA दस्तावेज़ पृष्ठ देखें।

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

उदाहरण: वीबीए में तारीखों के बीच दिनों की गणना करें

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

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

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

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

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

प्रत्येक प्रारंभ तिथि और प्रत्येक समाप्ति तिथि के बीच की तिथियों की संख्या कॉलम सी में इंगित की गई है।

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

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

वीबीए में तारीखों की तुलना कैसे करें
VBA का उपयोग करके किसी कॉलम को कैसे फ़िल्टर करें
VBA में मानों को वर्णानुक्रम में कैसे क्रमबद्ध करें