Vba में किसी स्ट्रिंग को दिनांक में कैसे बदलें (उदाहरण के साथ)

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

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

विधि 1: डिफ़ॉल्ट प्रारूप (MM/DD/YYYY) का उपयोग करके स्ट्रिंग को दिनांक में बदलें

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = CDate(Range(" A " & i))
    Next i
    
End Sub

यह विशेष मैक्रो A2:A8 श्रेणी की प्रत्येक स्ट्रिंग को डिफ़ॉल्ट दिनांक प्रारूप MM/DD/YYYY वाली तारीख में परिवर्तित कर देगा।

उदाहरण के लिए, 04/15/2023 की एक टेक्स्ट स्ट्रिंग को 04/15/2023 की तारीख में बदल दिया जाएगा।

विधि 2: कस्टम प्रारूप का उपयोग करके स्ट्रिंग को दिनांक में बदलें

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ")
    Next i
    
End Sub

यह विशेष मैक्रो प्रत्येक स्ट्रिंग को A2:A8 श्रेणी में MM.DD.YYYY प्रारूप में एक तारीख में बदल देगा।

उदाहरण के लिए, 04/15/2023 की एक टेक्स्ट स्ट्रिंग को 04/15/2023 की तारीख में बदल दिया जाएगा।

निम्नलिखित उदाहरण दिखाते हैं कि एक्सेल में स्ट्रिंग्स के निम्नलिखित कॉलम के साथ अभ्यास में प्रत्येक विधि का उपयोग कैसे करें:

उदाहरण 1: डिफ़ॉल्ट प्रारूप का उपयोग करके स्ट्रिंग को दिनांक में बदलें

हम कॉलम A में प्रत्येक स्ट्रिंग को डिफ़ॉल्ट MM/DD/YYY प्रारूप में दिनांक में बदलने के लिए निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = CDate(Range(" A " & i))
    Next i
    
End Sub

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

ध्यान दें कि कॉलम बी, कॉलम ए में प्रत्येक स्ट्रिंग को डिफ़ॉल्ट दिनांक प्रारूप एमएम/डीडी/वाईवाईवाईवाई के साथ एक तारीख में परिवर्तित करता है।

उदाहरण 2: कस्टम प्रारूप का उपयोग करके स्ट्रिंग को दिनांक में बदलें

हम कॉलम A में प्रत्येक स्ट्रिंग को MM.DD.YYY के कस्टम प्रारूप के साथ दिनांक में बदलने के लिए निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ")
    Next i
    
End Sub

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

ध्यान दें कि कॉलम बी, कॉलम ए में प्रत्येक स्ट्रिंग को कस्टम MM.DD.YYYY प्रारूप के साथ एक तारीख में परिवर्तित करता है।

अपनी पसंद के प्रारूप में तारीखें प्रदर्शित करने के लिए वीबीए प्रारूप फ़ंक्शन का उपयोग करने में संकोच न करें।

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

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

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

वीबीए में स्ट्रिंग को इंट में कैसे बदलें
वीबीए में एक स्ट्रिंग को लॉन्ग में कैसे बदलें
वीबीए में एक स्ट्रिंग को डबल में कैसे बदलें