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

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

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

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

यह विशेष मैक्रो A2:A7 श्रेणी में दिनांक और समय से दिनांक मान निकालेगा और उस दिनांक मान को B2:B7 की संगत श्रेणी में लौटाएगा।

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

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

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

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

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

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

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

कॉलम बी कॉलम ए में प्रत्येक डेटाटाइम के लिए दिनांक मान प्रदर्शित करता है।

उदाहरण के लिए:

• DateValue फ़ंक्शन 01/01/2023 को 01/01/2023 10:15:34 से लौटाता है
• DateValue फ़ंक्शन 01/03/2023 से 01/03/2023 12:34:18 अपराह्न तक लौटता है
• DateValue फ़ंक्शन 01/05/2023 को 01/05/2023 8:23:00 से लौटाता है

और इसी तरह।

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

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

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

वीबीए: तिथियों की तुलना कैसे करें
वीबीए: तारीख से महीने का नाम कैसे प्राप्त करें
वीबीए: तारीख से बड़ी संख्या