Vba में आज के दिन कैसे जोड़ें (उदाहरण के साथ)

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

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

 SubAddDays ()

    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 दस्तावेज़ पृष्ठ देखें।

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

उदाहरण: VBA में इस दिन में दिन जोड़ें

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

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

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

 SubAddDays ()

    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 में स्ट्रिंग को दिनांक में कैसे परिवर्तित करें
वीबीए में दो तिथियों के बीच दिनों की गणना कैसे करें