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

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

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

 Sub GetTimeValue()
    
Dim i As Integer

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

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

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

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

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

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

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

 Sub GetTimeValue()
    
Dim i As Integer

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

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

कॉलम बी, कॉलम ए में प्रत्येक दिनांक/समय के लिए समय मान प्रदर्शित करता है।

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

• टाइमवैल्यू फ़ंक्शन 01/01/2023 10:15:34 तक 10:15:34 पर लौटता है
• टाइमवैल्यू फ़ंक्शन 03/01/2023 12:34:18 अपराह्न 12:34:18 बजे लौटता है
• टाइमवैल्यू फ़ंक्शन 01/05/2023 8:23:00 तक 8:23:00 पर लौटता है

और इसी तरह।

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

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

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

वीबीए में तारीखों की तुलना कैसे करें
VBA का उपयोग करके टाइमस्टैम्प कैसे डालें
VBA में समय को कैसे फ़ॉर्मेट करें