VBA अब (चरण-दर-चरण गाइड) - एक्सेल VBA में अब फ़ंक्शन का उपयोग कैसे करें?

विषय - सूची

एक्सेल VBA अब फ़ंक्शन

एक्सेल VBA अब फ़ंक्शन

VBA में अब एक तिथि और समय फ़ंक्शन है, जिसका उपयोग वर्तमान सिस्टम तिथि और समय प्राप्त करने के लिए किया जाता है, ठीक उसी तरह जैसे वर्कशीट फ़ंक्शन जो इसमें कोई तर्क नहीं लेता है, VBA में अब फ़ंक्शन भी कोई तर्क नहीं लेता है, रिटर्न आउटपुट इस समारोह के लिए तारीख है।

VBA Now फ़ंक्शन एक्सेल वर्कशीट फ़ंक्शन के समान है। VBA में DATE फ़ंक्शन की तरह, "अभी" में भी पास होने के लिए पैरामीटर नहीं हैं। हमें बस बंद कोष्ठक के साथ फ़ंक्शन को पास करने की आवश्यकता है या साथ ही कोष्ठक की कोई आवश्यकता नहीं है। VBA में DATE फ़ंक्शन का उपयोग करके, हम वर्तमान तिथि को जेनरेट कर सकते हैं जैसा कि हम जिस सिस्टम पर काम कर रहे हैं उसे दिखाते हैं। हालाँकि, मैंने ऐसी परिस्थितियाँ देखी हैं जहाँ हमें तारीख के साथ-साथ वर्तमान समय की भी आवश्यकता है। एक्सेल में, हम कई प्रकार की चीजें कर सकते हैं; इसी तरह, हम एक साधारण फ़ंक्शन के साथ वर्तमान तिथि और समय उत्पन्न कर सकते हैं जिसे एक्सेल में अब कहा जाता है।

VBA Now का सूत्र सरल है।

अब क ()

VBA एक्सेल में अब फ़ंक्शन का उदाहरण

VBA में अब कार्य के सरल उदाहरण को देखें। VBA कोड लिखने के लिए नीचे दिए गए चरणों का पालन करें और कोड लिखने के साथ-साथ अब पर थोड़ा सा ज्ञान रखें।

चरण 1: एक मैक्रो नाम देकर उपप्रकार शुरू करें।

कोड:

उप Now_Example1 () उप सब

चरण 2: चर को "दिनांक" के रूप में घोषित करें। कारण हमें चर को "तिथि" घोषित करने की आवश्यकता है क्योंकि हमारा अंतिम परिणाम दिनांक और समय प्रारूप में है।

कोड:

उप Now_Example1 () समाप्ति तिथि के रूप में मंद k

चरण 3: VBA अब फ़ंक्शन को लागू करके चर "k" के लिए मान असाइन करें।

कोड:

उप Now_Example1 () डिम के रूप में दिनांक k = अब समाप्ति उप

चरण 4: अब फ़ंक्शन के मान को दिखाएं, जिसे हमने VBA में संदेश बॉक्स में चर "k" को सौंपा है।

कोड:

उप Now_Example1 () डिम के रूप में दिनांक k = अब MsgBox k End Sub

ठीक है, हम कर रहे हैं।

F5 कुंजी या मैन्युअल का उपयोग करके कोड चलाएँ और देखें कि परिणाम क्या है।

परिणाम 4/15/2019 को 5:03:35 पर दिखाई देता है।

मेरा कंप्यूटर दिनांक स्वरूप "mm-dd-yyyy" है।

हम FORMAT फ़ंक्शन का उपयोग करके दिनांक प्रारूप भी बदल सकते हैं। नीचे दिनांक प्रारूप को बदलने के लिए कोड है।

कोड:

उप Now_Example1 () डिम के रूप में दिनांक k = अब MsgBox प्रारूप (k, "DD-MMM-YYYY HH: MM: SS") अंतिम उप

कोड चलाएं और अंतर देखें।

अब हमारे पास एक उचित तारीख और समय प्रारूप है। इस प्रारूप के साथ, कोई भी दिनांक और समय प्रारूप को समझ सकता है।

प्रकृति में अस्थिर:

जैसा कि आप पहले उदाहरण में देख सकते हैं, हमें समय परिणाम 5:03:35 के रूप में मिला, और दूसरे उदाहरण में, हम परिणाम 17:19:02 पर जाते हैं। तो इससे पता चलता है कि नाओ फ़ंक्शन एक अस्थिर फ़ंक्शन है जो हर सेकंड बदलता है।

VBA में टाइमर फ़ंक्शन के लिए वैकल्पिक

VBA TIMER के विकल्प के रूप में, हम कार्य को पूरा करने के लिए मैक्रो द्वारा लिए गए कुल समय की गणना करने के लिए "VBA Now" फ़ंक्शन का उपयोग कर सकते हैं।

अपने कोड द्वारा लिए गए समय की गणना करने के लिए नीचे दिए गए कोड का उपयोग करें।

C0de:

उप कुल अवधि () डिम के रूप में दिनांक k = अब '' 'अपना कोड यहां दर्ज करें' '' MsgBox '' कार्य पूरा करने के लिए मैक्रो द्वारा कुल समय लिया गया है: "& _ Format (Now - k)," HH: MM : एसएस ") एंड सब

हरे रंग के क्षेत्र में, अपने कोड को कॉपी और पेस्ट करें।

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