यह ट्यूटोरियल प्रदर्शित करेगा कि वीबीए का उपयोग करके तिथियों को कैसे प्रारूपित किया जाए।
वीबीए में प्रारूप तिथियां
वीबीए का उपयोग करके तिथियों को प्रारूपित करने के दो तरीके हैं।
- सेल / रेंज की संख्याफॉर्मेट संपत्ति - कोशिकाओं में संग्रहीत तिथियों को प्रारूपित करने के लिए
- वीबीए प्रारूप समारोह - वीबीए में तिथियों को प्रारूपित करने के लिए (उदा। चर)
नंबरफॉर्मेट - तिथियां
एक्सेल में सेल का डिफॉल्ट नंबर फॉर्मेट सामान्य है। आप संख्या स्वरूप को बदलकर मानों को संख्या, पाठ, दिनांक, प्रतिशत या मुद्रा के रूप में प्रदर्शित कर सकते हैं। किसी सेल या श्रेणी में दिनांकों के संख्या स्वरूप को सेट करने के लिए VBA में NumberFormat गुण का उपयोग किया जा सकता है।
ध्यान दें: एक्सेल में उपलब्ध विभिन्न मानक दिनांक स्वरूपों को देखने के लिए होम> नंबर पर जाएं और आपको शॉर्ट डेट, लॉन्ग डेट और टाइम जैसे विकल्प दिखाई देंगे।
कम समय
लघु दिनांक संख्या स्वरूपण विकल्प दिनांक को संक्षिप्त, संख्यात्मक प्रारूप में प्रदर्शित करता है।
निम्न कोड सेल A1 की .NumberFormat प्रॉपर्टी को शॉर्ट डेट पर सेट करेगा:
1 | रेंज ("ए 1")। नंबरफॉर्मेट = "मिमी/दिन/वर्ष" |
लंबी तारीख
लंबी तिथि संख्या स्वरूपण तिथि को लंबे, लिखित प्रारूप में प्रदर्शित करता है। निम्न कोड सेल A1 की .NumberFormat प्रॉपर्टी को लॉन्ग डेट पर सेट करेगा:
1 | रेंज ("ए 1")। नंबरफॉर्मेट = "डीडीडीडी, एमएमएमएम डीडी, yyyy" |
कस्टम तिथियां
तारीखों को प्रारूपित करने के लिए आप वीबीए में उपयोग किए जा सकने वाले कस्टम नंबर प्रारूप कोड देखने के लिए, होम> नंबर पर जाएं और डायलॉग बॉक्स लॉन्चर पर क्लिक करें। नंबर टैब चुनें और कस्टम चुनें।
आप या तो अपनी तिथि के लिए कस्टम अंतर्निर्मित स्वरूपों का चयन कर सकते हैं या अपने स्वयं के उपयोगकर्ता-परिभाषित दिनांक प्रारूप बना सकते हैं। निम्न कोड सेल A1 के .NumberFormat गुण को एक अंतर्निहित कस्टम दिनांक स्वरूप में सेट करेगा:
1 | रेंज ("ए 1")। नंबरफॉर्मैट = "एमएमएम-वाई" |
परिणाम है:
निम्न कोड सेल A1 की .NumberFormat प्रॉपर्टी को उपयोगकर्ता द्वारा परिभाषित कस्टम दिनांक स्वरूप में सेट करेगा:
1 | रेंज ("ए 1")। नंबरफॉर्मैट = "डीडीडीडी-डीडी-एमएमएम-वाई" |
परिणाम है:
Excel के पूर्व-निर्मित उदाहरणों की समीक्षा करके आप सीख सकते हैं कि NumberFormats को कैसे दर्ज किया जाना चाहिए। अधिक जानकारी के लिए, दिनांकों के लिए संख्या स्वरूपों पर Microsoft के दस्तावेज़ पढ़ें।
वीबीए प्रारूप समारोह
जैसा कि ऊपर उल्लेख किया गया है, एक्सेल सेल में संग्रहीत तिथियों के नंबरफॉर्मेट को सेट करने के लिए नंबरफॉर्मैट विधि उपयुक्त है। वीबीए में, आप निश्चित तिथि स्वरूपण के साथ तिथियों को स्ट्रिंग में कनवर्ट करने के लिए प्रारूप फ़ंक्शन का उपयोग कर सकते हैं।
तिथियों को प्रारूपित करने के लिए आप निम्न सिंटैक्स का उपयोग करेंगे:
Format(String_Representation, NumberFormatCode) कहा पे:
String_Representation - दिनांक का प्रतिनिधित्व करने वाली टेक्स्ट स्ट्रिंग।
NumberFormatCode - संख्या प्रारूप कोड जिस तरह से दिनांक प्रदर्शित किया जाना चाहिए निर्दिष्ट करता है।
निम्न कोड दिखाता है कि किसी तिथि के टेक्स्ट स्ट्रिंग प्रस्तुतिकरण को लंबी तिथि प्रारूप के रूप में कैसे प्रारूपित किया जाए:
1 | MsgBox प्रारूप ("1/1/2010", "dddd, mmmm dd, yyyy") |
परिणाम है:
ध्यान दें कि फ़ॉर्मेट फ़ंक्शन उसी दिनांक स्वरूपण सिंटैक्स का उपयोग करता है जैसा कि ऊपर दिए गए NumberFormat में होता है।
निम्न कोड दिखाता है कि किसी दिनांक के टेक्स्ट स्ट्रिंग प्रस्तुतिकरण को मध्यम दिनांक प्रारूप के रूप में कैसे प्रारूपित किया जाए:
1 | MsgBox प्रारूप ("09 अक्टूबर 2012", "मध्यम तिथि") |
परिणाम है:
निम्न कोड दिखाता है कि किसी दिनांक के टेक्स्ट स्ट्रिंग प्रस्तुति को उपयोगकर्ता द्वारा परिभाषित प्रारूप के रूप में कैसे प्रारूपित किया जाए:
1 | MsgBox फ़ॉर्मेट ("09 अक्टूबर 2012", "dddd: dd/mm/yy") |
वीबीए कस्टम प्रारूप बिल्डर
हमारे VBA ऐड-इन: AutoMacro में VBA संपादक के लिए एक कस्टम प्रारूप निर्माता शामिल है। यह आपको कस्टम प्रारूप सेट करने और अपने वांछित मूल्य के लिए आउटपुट का तुरंत पूर्वावलोकन करने की अनुमति देता है:
VBA ऐड-इन में कई अन्य "कोड जेनरेटर", एक व्यापक कोड लाइब्रेरी और अन्य कोडिंग टूल का वर्गीकरण शामिल है। यह VBA प्रोग्रामिंग के बारे में गंभीर किसी के लिए भी अंतिम ऐड-इन है!
एक्सेस में वीबीए प्रारूप तिथि
VBA फ़ॉर्मेट दिनांक फ़ंक्शन ठीक उसी तरह काम करता है जैसे एक्सेस VBA में Excel VBA में होता है।
12345678910 | फ़ंक्शन GetDateFilter () स्ट्रिंग के रूप में'एक्सेस में किसी फॉर्म पर 2 दिनांक फ़ील्ड से जानकारी प्राप्त करने के लिए एक स्ट्रिंग बनाएं'स्ट्रिंग के रूप में मंद strDateFieldअगर IsNull(Me.txtSDate) = गलत तोअगर IsNull(Me.txtEDate) = सच तो Me.txtEDate = Me.txtSDateअगर strDateField2 = "" तोGetDateFilter = strDateField और "# के बीच" और प्रारूप (Me.txtSDate, "mm/dd/yyyy") और "# और #" और प्रारूप (Me.txtEDate, "mm/dd/yyyy") और "#"अगर अंतअगर अंतअंत समारोह |