VBA प्रारूप तिथि - VBA कोड में दिनांक प्रारूप को कैसे बदलें?

एक्सेल VBA प्रारूप तिथि

VBA में किसी दिनांक को प्रारूपित करने के लिए हम इनबिल्ट FORMAT फ़ंक्शन का उपयोग करते हैं, यह दिनांक प्रारूप के रूप में इनपुट लेता है और आवश्यक वांछित प्रारूप लौटाता है, इस फ़ंक्शन के लिए आवश्यक तर्क स्वयं और प्रारूप प्रकार हैं।

तारीख और समय का प्रारूपण एक्सेल में संवेदनशील चीजें हैं, और यही बात वीबीए पर भी लागू होती है। डिफ़ॉल्ट तिथि और समय उस सिस्टम तिथि पर आधारित होता है जिस पर हम काम कर रहे होते हैं, जो सिस्टम से सिस्टम में भिन्न हो सकते हैं। इस लेख में, हम आपको वीबीए कोड के साथ तिथियों को प्रारूपित करने के लिए विभिन्न तकनीकों को दिखाएंगे।

वीबीए कोडिंग के साथ तारीख प्रारूप को बदलने के लिए, हमें यह पता होना चाहिए कि तारीख प्रारूप क्या हैं और तारीख पर इसका क्या प्रभाव पड़ता है।

नीचे दी गई तालिका में अलग-अलग दिनांक स्वरूपण और उनके कोड दिखाए गए हैं।

इसलिए, यदि आप उपरोक्त चार्ट को ध्यान में रखते हैं तो VBA कोडिंग के माध्यम से तारीख को प्रारूपित करना कठिन काम नहीं है।

VBA में दिनांक प्रारूप कैसे बदलें?

नीचे एक्सेल VBA दिनांक प्रारूप के उदाहरण दिए गए हैं।

उदाहरण 1

उदाहरण के लिए, हमारे पास वर्कशीट की कई कोशिकाओं में एक ही तारीख है, जैसा कि नीचे दिखाया गया है।

अब हम एक ही तिथि के लिए अलग-अलग तारीखों के प्रारूप को लागू करने के लिए अलग-अलग तारीखों के कोड को देखेंगे।

सबसे पहले, प्रभाव को देखने के लिए उसी डेटा को अगले कॉलम पर कॉपी करें।

पहली तारीख यानी सेल A1 के लिए हम “DD-MM-YYYY” प्रारूप लागू करेंगे ।

पहले कोड में, हमें RANGE ऑब्जेक्ट का उपयोग करके सेल का चयन करना होगा ।

कोड:

उप दिनांक_Format_Example1 () रेंज ("A1") समाप्ति उप

चूँकि हम सेल के दिनांक प्रारूप को बदल रहे हैं, हमें RANGE ऑब्जेक्ट की " संख्या प्रारूप " संपत्ति तक पहुँचने की आवश्यकता है ।

कोड:

उप दिनांक_Format_Example1 () रेंज ("A1")

" संख्या प्रारूप " तक पहुंचने के बाद , हमें समान चिह्न लगाकर संख्या प्रारूप सेट करना होगा और प्रारूप कोड को दोहरे-उद्धरणों में लागू करना होगा।

कोड:

Sub Date_Format_Example1 () रेंज ("A1")। NumberFormat = "dd-mm-yyy" 'यह दिनांक को "23-10-2019" समाप्त हो जाएगा

जब हम इस कोड को निष्पादित करते हैं, तो यह सेल A1 में नंबर प्रारूप को " DD-MM-YYY " के रूप में लागू करेगा ।

आउटपुट:

उदाहरण # 2

इसी तरह, मैंने अन्य कोशिकाओं के लिए भी अलग प्रारूपण कोड लागू किए हैं, और नीचे आपके लिए VBA कोड है।

कोड:

Sub Date_Format_Example2 () रेंज ("A1")। NumberFormat = "dd-mm-yyy" 'यह दिनांक को "23-10-2019" रेंज ("A2") में बदल देगा। NumberFormat = "ddd-mm-yyy" 'यह तारीख को "बुध-10-2019" रेंज ("A3") में बदल देगा। NumberFormat = "dddd-mm-yyy"' यह दिनांक को "बुधवार -10-2019" रेंज ("A4") में बदल देगा। .NumberFormat = "dd-mmm-yyy" 'यह दिनांक को "23-Oct-2019" रेंज ("A5") में बदल देगा। NumberFormat = "dd-mmmm-yyy" "यह दिनांक को बदलकर" 23- कर देगा। अक्टूबर-2019 "रेंज (" ए 6 ")। नंबरफॉर्म =" डीएम-एमएम-वाई "" यह "23-10-19" रेंज ("ए 7") की तारीख को बदल देगा। नंबरफॉर्म = = डीडीएम mmy yyyy "" "बुध अक्टूबर 2019" को तारीख बदल देगारेंज ("ए 8")। नंबरफॉर्म = "डीडीएम एमएमएमवाईवाई" "यह तिथि बदलकर" बुधवार अक्टूबर 2019 "" एंड सब

इस कोड का परिणाम निम्नानुसार होगा।

आउटपुट:

FORMAT फ़ंक्शन का उपयोग करके दिनांक स्वरूप बदलें

VBA में, हमारे पास FORMAT नामक एक फ़ंक्शन है, जिसका उपयोग सेल में वांछित प्रारूप लागू करने के लिए किया जा सकता है।

हमें केवल यह निर्दिष्ट करने की आवश्यकता है कि "अभिव्यक्ति" के लिए मूल्य क्या है और तदनुसार "प्रारूप" लागू करें।

एक उदाहरण के लिए नीचे दिए गए कोड को देखें।

कोड:

उप दिनांक_Format_Example3 () वेरिएंट MyVal के रूप में मंद MyVal = 43586 MsgBox प्रारूप (MyVal, "DD-MM-YYYY") अंतिम उप

उपरोक्त कोड में, मैंने चर को वेरिएंट के रूप में परिभाषित किया है (जो किसी भी मूल्य को पकड़ सकता है)।

कोड:

डिम मायवैल अस वैरिअंट

इस चर के लिए, मैंने 43586 के रूप में मान दिया है।

कोड:

MyVal = 43586

Next, in the message box, I have shown the result of the variable, but before we show the result, we have used the “FORMAT” function to format the value of the variable “MyVal,” and the format is given. “DD-MM-YYYY.”

Code:

MsgBox Format(MyVal, "DD-MM-YYY")

Ok, let’s run the code and see the result in the message box in VBA.

Output:

As you can see above, the result shows as “01-05-2019”.

Now you must be wondering we have supplied the serial number but the result showing as the date. This is because Excel stores the date as serial numbers, so the value 43586 is equal to the date “01-05-2019,” and if you increase the number by 1 i.e., 43587, the date will be “02-05-2019”.

Code:

उप दिनांक_Format_Example3 () वेरिएंट MyVal के रूप में मंद MyVal = 43586 MsgBox प्रारूप (MyVal, "DD-MM-YYY") अंतिम उप

याद रखने वाली चीज़ें

• आपके सिस्टम की डिफ़ॉल्ट तिथि आपके एक्सेल पर भी लागू होगी।
• वीबीए में दिनांक प्रारूप को बदलने के लिए संख्या प्रारूप संपत्ति का उपयोग किया जा सकता है।
• FORMAT फ़ंक्शन का उपयोग करके, हम दिनांक प्रारूप को बदल सकते हैं।
• एक्सेल सीरियल नंबर के रूप में तारीख को स्टोर करता है, और यदि आप दिनांक प्रारूप लागू करते हैं, तो यह तदनुसार दिखाई देगा।