एक्सेल VBA IsDate फ़ंक्शन
IsDate VBA फ़ंक्शन है जो परीक्षण करता है कि दिए गए मूल्य की तारीख है या नहीं। यदि आपूर्ति की गई वैल्यू या रेंज रेफरेंस वैल्यू डेट वैल्यू है तो हमें “TRUE” के रूप में परिणाम मिलेगा, यदि वैल्यू डेट वैल्यू नहीं है तो हमें परिणाम “FALSE” के रूप में मिलेगा। तो, परिणाम BOOLEAN मान है या तो TRUE या FALSE।
नीचे IsDate फ़ंक्शन का सिंटैक्स है।
अभिव्यक्ति कुछ भी नहीं है, लेकिन मूल्य है कि हम परीक्षण करने की कोशिश कर रहे हैं, चाहे वह तारीख है या नहीं।
VBA IsDate फ़ंक्शन का उपयोग कैसे करें?
हम परीक्षण करेंगे कि मूल्य "5.01.19" एक तारीख मूल्य है या नहीं।
इसके लिए पहले शुरुआत करें, एक्सेल मैक्रो प्रक्रिया।
कोड:
उप IsDate_Example1 () उप सब
दिनांक मान को संग्रहीत करने के लिए चर को परिभाषित करें, और चूंकि मान दिनांक मान होगा, इसलिए डेटा प्रकार को "दिनांक" के रूप में असाइन करें।
कोड:
उप IsDate_Example1 () दिनांक समाप्ति उप के रूप में मंद माइडेट
अब "MyDate" चर के लिए "5.1.19" का मान असाइन करें।
कोड:
उप IsDate_Example1 () दिनांक MyDate = "5.1.19" समाप्ति उप के रूप में मंद माइडेट
अब VBA में संदेश बॉक्स खोलें।
कोड:
Sub IsDate_Example1 () दिनांक MyDate के रूप में मंद MyDate = "5.1.19" MsgBox (अंतिम उप)
इस संदेश बॉक्स में, हम परीक्षण करेंगे कि चर "MyDate" के लिए दिनांकित मूल्य "IsDate" फ़ंक्शन का उपयोग करके तिथि है या नहीं। सबसे पहले, "IsDate" फ़ंक्शन खोलें।
कोड:
Sub IsDate_Example1 () दिनांक MyDate के रूप में मंद MyDate = "5.1.19" MsgBox IsDate (अंतिम उप)
अभिव्यक्ति वह मूल्य है जिसे हम यह जानने के लिए परीक्षण कर रहे हैं कि यह दिनांक है या नहीं। चूँकि हमने पहले ही वेरिएबल “MyDate” वैरिएबल को वैल्यू स्टोर कर लिया है, केवल वैरिएबल नेम ही सप्लाई करते हैं।
कोड:
Sub IsDate_Example1 () दिनांक MyDate के रूप में मंद MyDate = "5.1.19" MsgBox IsDate (MyDate) समाप्ति उप
ठीक है, अब कोड चलाएं और देखें कि हमें संदेश बॉक्स में क्या मिलता है।
वाह क्या बात है!!! परिणाम TRUE है ।
आप सोच रहे होंगे कि यह दिनांक के रूप में "5.1.19" मूल्य को कैसे पहचानता है।
इसका कारण यह है कि परिणाम TRUE के रूप में वापस आ गया है क्योंकि जब आप दिए गए मूल्य "5.1.19," को देखते हैं, तो यह तारीख का संक्षिप्त रूप है "05.01.2019," इसलिए यह तारीख के रूप में पहचानने के लिए एक्सेल शानदार है, इसलिए परिणाम TRUE है।
अब यहाँ ट्रिकी बात आती है, इसी मूल्य के लिए, हम जो करेंगे वह यह है कि हम वर्ष के संक्षिप्त रूप को 19 से 2019 तक बदल देंगे।
कोड:
Sub IsDate_Example1 () स्ट्रिंग MyDate के रूप में मंद MyDate = "5.1.2019" MsgBox IsDate (MyDate) समाप्ति उप
अब कोड को रन करें और परिणाम देखें।
इस बार यह परिणाम FALSE के रूप में वापस आ गया है क्योंकि तारीख का "दिन और महीना" भाग संक्षिप्त रूप में है, लेकिन वर्ष भाग "YYYY" के पूर्ण रूप में है, इसलिए ISDATE यह पहचान नहीं सकता है कि इसकी तिथि है, इसलिए परिणाम गलत है।
अब, नीचे दिए गए कोड को देखें।
कोड:
उप IsDate_Example1 () स्ट्रिंग MyDate के रूप में मंद MyDate = "05.01.2019" MsgBox IsDate (MyDate) समाप्ति उप
मैंने 0. का उपयोग करके एक पूरे दिन और पूरे महीने के प्रारूप का उल्लेख किया है चलो कोड चलाते हैं और इसडैट फ़ंक्शन का परिणाम देखते हैं।
इस बार भी हमें FALSE के रूप में परिणाम मिला ।
अब कोड को निम्नानुसार बदलें।
कोड:
Sub IsDate_Example1 () स्ट्रिंग MyDate के रूप में मंद MyDate = "05/01/2019" MsgBox IsDate (MyDate) समाप्ति उप
विभाजक के रूप में डॉट (।) के बजाय, हमने विभाजक के रूप में फ़ॉरवर्ड-स्लैश (/) दर्ज किया है। अब कोड को रन करें और परिणाम देखें।
इस बार हमें TRUE के रूप में परिणाम मिला ।
यही कारण है कि मैंने आपको लेख की शुरुआत में बताया है कि "दिनांक" एक संवेदनशील चीज है।
अब मैं जो करूंगा वह तारीख और समय को एक साथ मिला देगा।
कोड:
Sub IsDate_Example1 () MyDate स्ट्रिंग के रूप में मंद MyDate = "05/01/2019 15:26:24" MsgBox IsDate (MyDate) समाप्ति उप
जो मैंने ऊपर जोड़ा है वह तारीख के सामने "15:26:24" का समय भाग है। अब कोड को रन करें और परिणाम देखें।
इस बार भी, हमें TRUE के रूप में परिणाम मिला क्योंकि एक्सेल में DATE & TIME एक ही चीजें हैं और सीरियल नंबर के रूप में संग्रहीत हैं। पूरी संख्या दिनांक भाग का प्रतिनिधित्व करती है, और दशमलव स्थान समय भाग का प्रतिनिधित्व करते हैं।
यहां याद रखने योग्य बातें
- IsDate बूलियन प्रकार का परिणाम देता है, अर्थात, TRUE या FALSE।
- IsDate केवल VBA फ़ंक्शन के रूप में उपलब्ध है।
- केवल मान्य स्वरूपित तिथियों को दिनांक के रूप में माना जाता है, अन्यथा यह पाठ मानों के रूप में माना जाएगा और FALSE के रूप में परिणाम लौटाएगा।
