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

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

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

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

ध्यान दें : CDate फ़ंक्शन किसी दिए गए सेल के मान को दिनांक में परिवर्तित करता है।

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

उदाहरण: वीबीए में तिथियों की तुलना करें

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

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

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

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

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

दिनांक तुलना के परिणाम अब कॉलम सी में प्रदर्शित होते हैं।

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

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

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