VBA में CDATE फ़ंक्शन
VBA CDATE एक डेटा प्रकार रूपांतरण फ़ंक्शन है जो एक डेटा प्रकार को परिवर्तित करता है जो या तो पाठ या स्ट्रिंग से डेट डेटा प्रकार है। एक बार जब मूल्य डेटा प्रकार में परिवर्तित हो जाता है तो हम तारीख के सामान के साथ खेल सकते हैं।
CDATE का सिंटैक्स
नीचे VBA में CDATE फ़ंक्शन का सिंटैक्स है।
अभिव्यक्ति: अभिव्यक्ति एक स्ट्रिंग या पाठ मान या एक चर हो सकता है जिसमें दिनांक डेटा प्रकार में परिवर्तित किया जाने वाला मान होता है।
CDATE उस कंप्यूटर में दिनांक और समय प्रारूप की पहचान करता है, जिस पर हम काम कर रहे हैं और आपूर्ति किए गए मान को उसी तिथि डेटा प्रकार में कनवर्ट करते हैं। यदि आप केवल दिन और महीने की आपूर्ति करते हैं और वर्ष की उपेक्षा करते हैं, तो CDATE फ़ंक्शन सिस्टम वर्ष लेता है, आपूर्ति किए गए दिन और महीने के साथ दिखाता है।
हम नीचे दिए गए अनुभाग में अधिक से अधिक उदाहरण देखेंगे।
Excel VBA में CDATE फ़ंक्शन का उपयोग कैसे करें?
एक्सेल VBA में CDATE फ़ंक्शन के उदाहरण।
उदाहरण 1
इससे पहले कि मैं आपको CDATE का उदाहरण दिखाऊं, पहले नीचे दिए गए कोड को देखें।
कोड:
उप CDATE_Example1 () डिम के रूप में स्ट्रिंग k = "25-12" MsgBox k End Sub
चर "k" के लिए उपरोक्त में, मैंने "25-12" के रूप में मान असाइन किया है। जब मैं इस कोड को निष्पादित करता हूं, तो हम VBA में संदेश बॉक्स में समान मूल्य देखेंगे।
लेकिन इसे VBA CDATE फ़ंक्शन का उपयोग करके तिथि में परिवर्तित किया जा सकता है, इसके लिए दिनांक के रूप में एक और चर को परिभाषित करें।
कोड:
मंद k1 as Date
इस चर के लिए, "k1" CDATE फ़ंक्शन प्रदान करता है और चर "k" की आपूर्ति करता है, जो स्ट्रिंग "25-12" रखता है। और संदेश बॉक्स के लिए "k" के बजाय "k1" के चर मान को दिखाएं।
कोड:
k1 = CDate (k)
अब कोड को रन करें और परिणाम को एक संदेश बॉक्स में देखें।
तो परिणाम "12/25/2019" है।
बारीकी से उस मूल्य को देखें जो हमने आपूर्ति की है। हमने वर्ष 25-12 की आपूर्ति की है।
इस लेख को मेरे सिस्टम में चालू वर्ष 2019 लिखते समय, इसलिए VBA CDATE ने स्ट्रिंग वैल्यू को "25-12" में बदल दिया और सिस्टम वर्ष 2019 को इसमें जोड़ दिया। तो अंतिम परिणाम यह 2019/12/25 यानी, 25 की तरह पढ़ वें दिसंबर 2019।
उदाहरण # 2
अब, नीचे दिए गए कोड को देखें।
कोड:
उप CDATE_Example2 () डिम k अस वैरिएंट मंद kResult as k k = 43889 kResult = CDate (k) MsgBox kResult समाप्ति उप
चर "k" के लिए उपरोक्त कोड में, मैंने "43889" नंबर लागू किया है। हम सभी जानते हैं कि यह एक सीरियल नंबर है, लेकिन एक अन्य वेरिएबल, "KResult" के लिए, हमने "CDATE" फ़ंक्शन का उपयोग करके इस मान को दिनांक में परिवर्तित कर दिया है।
चर "KResult" का एक ही परिणाम संदेश बॉक्स में दिखाया गया है।
कोड चलाएँ और फ़ंक्शन "CDATE" का जादू देखें।
यह परिणाम "2/28/2020" के रूप में दिखाता है यदि आप एक्सेल में तारीखों से परिचित नहीं हैं, तो आप सोच रहे होंगे कि यह कैसे हुआ।
उदाहरण के लिए, स्प्रेडशीट में किसी एक सेल में एक ही नंबर (43889) दर्ज करें।
इसके लिए, प्रारूप को "DD-MM-YYYY" के रूप में लागू करें।
अब Ok पर क्लिक करें और परिणाम देखें।
अब परिणाम एक सीरियल नंबर से तारीख में बदल गया है। क्योंकि हमने क्रम संख्या शीर्ष पर दिनांक प्रारूप लागू किया है, इसने संबंधित तिथि दर्शाई है।
तो इसका मतलब क्रमांक 43889 दिनांक 28-02-2020 के बराबर है।
तो हमारे VBA कोड में CDATE फ़ंक्शन ने स्ट्रिंग मान को डेट डेटा प्रकार में परिवर्तित करके उसी चीज़ को निष्पादित किया है।
उदाहरण # 3
इस उदाहरण के लिए, नीचे दिए गए कोड को देखें।
उप CDATE_Example3 () डिम मान १ डिम वैल्यू २ डिम वैल्यू ३ वैल्यू १ = २४ दिसंबर २०१ ९ "वैल्यू २ = # ६ / २५ / २०१ample # वैल्यू ३ =" १::३०:४ "बजे" मिसगॉक्स सीडेट (वैल्यू १) मिसबॉक्स बॉक्सेट (वैल्यू २) MsgBox CDate () मान 3) अंत उप
जब हम इस कोड को चलाते हैं, तो हमें नीचे दिए गए परिणाम मिलेंगे।
तो, सभी मानों को CDATE फ़ंक्शन के साथ डेट डेटा प्रकार में बदल दिया जाता है।
याद रखने वाली चीज़ें
- CDATE दिनांक डेटा प्रकार में केवल संख्याएँ और स्ट्रिंग मान परिवर्तित करता है।
- यह उपयोगी है जब हम इसे अन्य कार्यों के साथ उपयोग करते हैं।
- यदि गलत डेटा टाइप वैल्यू सप्लाई की जाती है, तो हमें टाइप मिसमैच एरर मिलेगा।
- चूंकि तिथि और समय सीरियल नंबर का हिस्सा है, यह समय के साथ-साथ उचित समय को भी परिवर्तित करता है।
