वीबीए में किसी तारीख से दिन कैसे घटाएं (उदाहरण के साथ)

आप किसी दिनांक से दिनों की एक विशिष्ट संख्या घटाने के लिए VBA में एक ऋणात्मक संख्या के साथ DateAdd फ़ंक्शन का उपयोग कर सकते हैं।

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

 Sub SubtractDays()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", -4, Range(" A " & i))
    Next i
    
End Sub

यह विशेष मैक्रो A2:A10 श्रेणी में प्रत्येक तिथि से चार दिन घटाएगा और B2:B10 श्रेणी में नई तिथियां प्रदर्शित करेगा।

ध्यान दें कि DateAdd फ़ंक्शन में “d” तर्क निर्दिष्ट करता है कि हम समय की किसी अन्य इकाई के बजाय तारीखों से दिन घटाना चाहते हैं।

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

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

उदाहरण: वीबीए में तारीख से दिन घटाएं

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

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

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

 Sub SubtractDays()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", -4, Range(" A " & i))
    Next i
    
End Sub

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

ध्यान दें कि कॉलम बी में कॉलम ए की प्रत्येक तारीख में चार दिन घटाए गए हैं।

प्रत्येक दिनांक से भिन्न दिनों की संख्या घटाने के लिए DateAdd फ़ंक्शन में संख्यात्मक मान बदलने के लिए स्वतंत्र महसूस करें।

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

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

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

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