Vba में dateserial फ़ंक्शन का उपयोग कैसे करें (उदाहरण के साथ)

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

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

 SubUseDateSerial ()
    
Dim i As Integer

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

यह विशेष मैक्रो कॉलम C में वर्ष मान, कॉलम B में माह मान और कॉलम A में दिन मान का उपयोग करके D2:D13 श्रेणी में दिनांक मान लौटाएगा।

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

उदाहरण: VBA में DateSerial फ़ंक्शन का उपयोग कैसे करें

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित कॉलम हैं जो विभिन्न तिथियों के लिए दिन, महीना और वर्ष प्रदर्शित करते हैं:

मान लीजिए कि हम प्रत्येक पंक्ति में दिन, महीने और वर्ष के मानों का उपयोग करके कॉलम डी में दिनांक मान प्रदर्शित करना चाहते हैं।

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

 SubUseDateSerial ()
    
Dim i As Integer

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

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

कॉलम डी क्रमशः कॉलम ए, बी और सी से दिन, महीने और वर्ष के मूल्यों का उपयोग करने के परिणामस्वरूप दिनांक मान प्रदर्शित करता है।

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

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

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

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