VBA आज का समारोह
आज का अर्थ है कार्यपत्रक में, अब कार्यपत्रक में कार्य वही कार्य करता है जो हमें वर्तमान तिथि और समय प्रदान करता है, लेकिन VBA में आज ही कोई कार्य नहीं है, सिस्टम की वर्तमान तिथि प्राप्त करने की विधि दिनांक फ़ंक्शन का उपयोग करके है अब फ़ंक्शन तिथि फ़ंक्शन के विपरीत केवल हमें वर्तमान दिनांक देता है।
एक्सेल में, हमारे पास कई उपयोगी कार्य हैं जो दैनिक आधार पर हमारी सहायता कर सकते हैं। एक्सेल ने कार्यस्थल पर हमारे सभी जीवन को आसान बना दिया। जब मैं कहता हूं कि "दैनिक", एक्सेल में आज की तारीख को वापस करने का सूत्र है, तो तारीख ही नहीं, हम वर्तमान तिथि और समय भी एक साथ प्राप्त कर सकते हैं। इस तरह के विभिन्न प्रकार के सूत्र हैं। यदि आप एक्सेल के नियमित उपयोगकर्ता हैं, तो मुझे उम्मीद है कि आप अपने काम करने वाले कंप्यूटर में दिखाने के रूप में वर्तमान तिथि सम्मिलित करने के लिए एक्सेल में "TODAY" नामक सूत्र भर आए हैं। लेकिन हमारे पास VBA में TODAY फ़ंक्शन नहीं है, फिर हम VBA से TODAY की तिथि कैसे प्राप्त करते हैं। यह लेख आपको दिखाएगा कि कैसे VBA में TODAY तारीख के साथ काम करना है। पढ़ते रहिये।
VBA में आज की तारीख पाने के लिए फॉर्मूला क्या है?
अगर TODAY नाम का कोई फॉर्मूला नहीं है, तो हम VBA से आज की तारीख कैसे प्राप्त करेंगे? यह सामान्य प्रश्न है जो हर कोई पूछता है, लेकिन समाधान सरल है हमारे पास एक अलग नाम, यानी, DATE फ़ंक्शन के साथ एक सूत्र है।
वीबीए में क्या तारीख समारोह करता है?
DATE बिल्कुल VBA TODAY फ़ंक्शन के समान है, लेकिन यह एक वाष्पशील फ़ंक्शन नहीं है जब तक कि आप मैक्रो को चलाते या मैक्रो को ट्रिगर नहीं करते।
DATE फ़ंक्शन के सिंटैक्स में कोई तर्क नहीं होता है। हमें केवल फ़ंक्शन DATE पास करना होगा। बस इतना ही।
तारीख ()
VBA में दिनांक समारोह के उदाहरण
सिस्टम की वर्तमान तिथि वापस करने के लिए DATE फ़ंक्शन। यह बहुत उपयोगी है जब हम इसे बड़े VBA प्रोजेक्ट के हिस्से के रूप में उपयोग करते हैं। इस बारे में पहले जानकारी रखने के लिए, मैं आपको DATE फ़ंक्शन के सरल उदाहरण दिखाऊंगा।
उदाहरण 1
संदेश बॉक्स में वर्तमान दिनांक दिखाने के लिए एक सरल DATE फ़ंक्शन बनाते हैं। एक्सेल मैक्रो लिखने के लिए नीचे दिए गए चरणों का पालन करें।
चरण 1: मैक्रो का नामकरण करके एक उपप्रकार बनाएँ।
चरण 2: चर को "दिनांक" के रूप में घोषित करें। DATE फ़ंक्शन परिणाम को दिनांक के रूप में ही लौटाता है, इसलिए चर डेटा प्रकार "दिनांक" होना चाहिए।
कोड:
उप Today_Example1 () डिम के रूप में स्ट्रिंग अंत उप
चरण 3: D " फ़ंक्शन के रूप में चर" k "के मान को असाइन करें ।
कोड:
उप Today_Example1 () डिम K As स्ट्रिंग K = दिनांक समाप्ति उप
चरण 4: अब, VBA में संदेश बॉक्स में चर "k" का मान ।
कोड:
उप Today_Example1 () डिम K अस स्ट्रिंग K = दिनांक MagBox K End उप
कोड चलाएँ। हमें सिस्टम में प्रदर्शित वर्तमान तिथि को देखना चाहिए।
नोट: दिनांक प्रारूप सिस्टम सेटिंग्स के आधार पर भिन्न हो सकता है। यह "mm-dd-yy," "dd-mm-yy" में हो सकता है।
आज का दिन खोजने के लिए तिथि समारोह।
तारीख समारोह ईएमआई, क्रेडिट कार्ड भुगतान, बीमा भुगतान, आदि की नियत तारीखों को खोजने के संदर्भ में अधिक उपयोगी है।
मान लें कि आप एक ऋण वसूली अधिकारी के रूप में काम कर रहे हैं, और आपके पास उनकी देय राशि और नियत तारीख वाले ग्राहकों की एक सूची है।
स्थिति कॉलम में, आपको परिणाम "दिनांक आज है" के रूप में परिणाम की आवश्यकता है यदि नियत दिनांक वर्तमान सिस्टम तिथि के बराबर है।
यह VBA में IF कंडीशन और लूप्स का उपयोग करके किया जा सकता है। नीचे आपको परिणामों पर पहुंचने के लिए रेडीमेड कोड दिया गया है।
कोड:
उप Today_Example2 () Dim K As Integer For K = 2 से 11 यदि सेल (K, 3) .Value = दिनांक तब कक्ष (K, 4) .Value = "आज के कारण है" Else Cells (K, 4) .Value। = "नॉट टुडे" एन्ड इफ नेक्स्ट के एंड एंड
यह स्थिति कॉलम में परिणामों पर पहुंचेगा।
कई परिदृश्यों की तरह, हम तारीखों की जांच करने और किसी प्रकार की कार्रवाई करने के लिए DATE फ़ंक्शन का उपयोग कर सकते हैं।
आप इस VBA Today फ़ंक्शन को यहां डाउनलोड कर सकते हैं। VBA टुडे फंक्शन एक्सेल टेम्पलेट
