VBA में समय मान एक इनबिल्ट फ़ंक्शन है जिसे VBA में दिनांक और समय फ़ंक्शन के अंतर्गत भी वर्गीकृत किया जाता है, यह फ़ंक्शन जैसा कि नाम से पता चलता है कि हमें एक तर्क के रूप में प्रदान की गई तारीख का संख्यात्मक मूल्य मिलता है, यह एक एकल तर्क लेता है जो तारीख है तर्क से संख्यात्मक मान लौटाता है।
VBA में टाइम वैल्यू फंक्शन क्या करता है?
VBA Excel में समय मान फ़ंक्शन पूर्ण दिनांक और समय से समय मान भाग देता है। तिथि और समय को एक्सेल में सीरियल नंबर के रूप में संग्रहीत किया जाता है। क्रम संख्या DATE का प्रतिनिधित्व करती है, और दशमलव समय का प्रतिनिधित्व करता है। TimeValue फ़ंक्शन का उपयोग करके, हम केवल समय क्रम संख्या, अर्थात, दशमलव संख्या प्राप्त कर सकते हैं।
VBA TimeValue फ़ंक्शन का सिंटैक्स
VBA TimeValue फ़ंक्शन का सिंटैक्स निम्नानुसार है।
जैसा कि हमने कहा, टाइमवैल्यू फ़ंक्शन दिए गए दिनांक के क्रम संख्या भाग को लौटाता है, जिसे पाठ मान के रूप में संग्रहीत किया जाता है। समय कुछ भी नहीं है, लेकिन वास्तविक समय हम सीरियल नंबर पाने के लिए देख रहे हैं। याद रखें, टाइम वैल्यू केवल उस सीरियल नंबर को समय से प्राप्त कर सकती है, जिसे टेक्स्ट के रूप में संग्रहीत किया जाता है, टाइम के रूप में नहीं।
एक्सेल VBA के साथ TimeValue फ़ंक्शन के उदाहरण
नीचे VBA TimeValue फ़ंक्शन के उदाहरण दिए गए हैं।
VBA TimeValue उदाहरण # 1
अब, VBA TimeValue फ़ंक्शन के सरल उदाहरण को देखें।
कोड:
उप TIMEVALUE_Function_Example1 () 'दिए गए इनपुट स्ट्रिंग को एक मान्य समय में रूपांतरित करें और स्क्रीन पर प्रदर्शित करें' चर घोषणा डिम MyTime के रूप में दिनांक 'एक चर MyTime = TimeValue ("28-05-2019 16:50:45") को समय दें MsgBox स्क्रीन पर डिस्प्ले आउटपुट "वर्तमान समय है:" और MyTime, vbInformation, "VBA TIMEVALUE फ़ंक्शन" अंतिम उप
पहली बात, मैंने "माईटाइम" चर को तारीख के रूप में घोषित किया है ।
डिम टाइम के रूप में मैम टाइम
फिर मैंने TimeValue को लागू करके चर को मान दिया है।
मायटाइम = टाइमवैल्यू ("28-05-2019 16:50:45")
फिर संदेश बॉक्स में, मैंने चर परिणाम सौंपा है।
MsgBox "पूरक समय है:" और MyTime, vbInformation, "TIMEVALUE फ़ंक्शन"।
यदि मैं F5 कुंजी या मैन्युअल रूप से कोड का उपयोग करता हूं, तो हमें परिणाम निम्नानुसार मिलेगा।
VBA TimeValue उदाहरण # 2
उसी कोड के लिए, मैं VBA वैरिएबल को "डबल" घोषित करूंगा।
कोड:
उप TIMEVALUE_Function_Example1 () दिए गए इनपुट स्ट्रिंग को एक मान्य समय में रूपांतरित करें और स्क्रीन पर प्रदर्शित करें 'चर घोषणा डिम MyTime डबल के रूप में' एक चर MyTime = TimeValue ("28-05-2019 16:50:45") को समय दें MsgBox स्क्रीन पर डिस्प्ले आउटपुट "वर्तमान समय है:" और MyTime, vbInformation, "VBA TIMEVALUE फ़ंक्शन" अंतिम उप
अब, यदि मैं VBA कोड को मैन्युअल रूप से या F5 कुंजी दबाकर चलाता हूं, तो यह समय के सीरियल नंबर भाग 16:50:45 को प्रदर्शित करेगा।
आपकी बेहतर समझ के लिए, मैं सबसे पहले VBA संदेश बॉक्स द्वारा दिए गए नंबरों में से एक सेल में प्रवेश करूंगा।
अब मैं सटीक परिणाम की जांच करने के लिए समय प्रारूप लागू करूंगा।
जब आप इसे समय प्रारूप में बदलते हैं, तो आप सटीक समय देख सकते हैं।
VBA TimeValue उदाहरण # 3
अब, नीचे दिए गए डेटा को देखें।
हमारे पास A1 और A14 सेल से डेटा और समय एक साथ है। दूसरे कॉलम के लिए, हमें केवल समय मान निकालने की आवश्यकता है। चूंकि हमारे पास निपटने के लिए एक से अधिक सेल हैं, इसलिए हमें सभी कोशिकाओं के लिए समान कार्य करने के लिए छोरों को नियोजित करने की आवश्यकता है।
हमारे पास 1 सेंट सेल से 14 वें सेल तक डेटा है , इसलिए हमारा लूप 14 बार चलना चाहिए। हमें निम्न सीमा और ऊपरी सीमा का उल्लेख करने के लिए VBA में NEXT लूप का उपयोग करने की आवश्यकता है। नीचे दिया गया कोड दिनांक और समय संयोजन से समय मान निकालने के लिए पहले से लिखा हुआ कोड है।
कोड:
Sub TimeValue_Example3 () Dim k As Integer For k = 1 To 14 Cells (k, 2) .Value = TimeValue (Cells (k, 1) .Value) Next k End अंत।
जब हम कोड चलाते हैं, तो हमें नीचे दिए गए मान मिलेंगे।
यदि आप समय देखना चाहते हैं, तो इसके लिए TIME प्रारूप लागू करें।
तो, यह है कि TIME VALUE फ़ंक्शन VBA और Excel में कैसे काम करता है।
