दिनांक भाग विवरण
किसी दी गई तिथि का निर्दिष्ट भाग लौटाता है।
सरल दिनांक भाग उदाहरण
यहां एक साधारण डेटपार्ट उदाहरण दिया गया है:
123 | उप दिनांकPart_Year_Test ()MsgBox DatePart("yyyy", #1/1/2019#)अंत उप |
यह कोड 2022 लौटाएगा।
डेटपार्ट सिंटेक्स
वीबीए संपादक में, आप डेटपार्ट फ़ंक्शन के सिंटैक्स को देखने के लिए "डेटपार्ट (" टाइप कर सकते हैं:
डेटपार्ट फ़ंक्शन में 4 तर्क होते हैं:
मध्यान्तर: समय इकाई (दिन, महीने, वर्ष, आदि)। स्ट्रिंग के रूप में दर्ज करें। (उदा. "एम" महीने के लिए)
स्थापना | विवरण |
---|---|
वर्ष | वर्ष |
क्यू | तिमाही |
एम | महीना |
आप | वर्ष का दिन |
डी | दिन |
वू | काम करने के दिन |
डब्ल्यूडब्ल्यूई | सप्ताह |
एच | घंटा |
एन | मिनट |
एस | दूसरा |
दिनांक: वैरिएंट (दिनांक) मान जिसका आप मूल्यांकन करना चाहते हैं।
सप्ताह का पहला दिन: एक स्थिरांक जो सप्ताह के पहले दिन को निर्दिष्ट करता है। यह वैकल्पिक है। यदि निर्दिष्ट नहीं है, तो रविवार माना जाता है।
लगातार | मूल्य | विवरण |
---|---|---|
वीबीयूज सिस्टम | 0 | एनएलएस एपीआई सेटिंग का प्रयोग करें। |
वीबीरविवार | 1 | रविवार (डिफ़ॉल्ट) |
वीबीसोमवार | 2 | सोमवार |
वीबीमंगलवार | 3 | मंगलवार |
वीबीबुधवार | 4 | बुधवार |
वीबीगुरुवार | 5 | गुरूवार |
वीबीशुक्रवार | 6 | शुक्रवार |
वीबीशनिवार | 7 | शनिवार |
वर्ष का पहला सप्ताह: एक स्थिरांक जो वर्ष के पहले सप्ताह को निर्दिष्ट करता है। यह वैकल्पिक है। यदि निर्दिष्ट नहीं है, तो पहला सप्ताह वह सप्ताह माना जाता है जिसमें 1 जनवरी आता है।
लगातार | मूल्य | विवरण |
---|---|---|
वीबीयूज सिस्टम | 0 | एनएलएस एपीआई सेटिंग का प्रयोग करें। |
वीबीफर्स्टजन१ | 1 | उस सप्ताह से प्रारंभ करें जिसमें 1 जनवरी आता है (डिफ़ॉल्ट)। |
वीबीफर्स्टफोरडेज | 2 | पहले सप्ताह से शुरू करें जिसमें नए साल में कम से कम चार दिन हों। |
वीबीफर्स्टफुल वीक | 3 | साल के पहले पूरे सप्ताह से शुरू करें। |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
एक्सेल वीबीए डेटपार्ट फंक्शन के उदाहरण
संदर्भ तिथियां
शुरू करने के लिए, हम वीबीए डेटपार्ट फ़ंक्शन का उपयोग करके तिथियों को संदर्भित करने के विभिन्न तरीकों का प्रदर्शन करेंगे।
इनमें से प्रत्येक डेटपार्ट फ़ंक्शन एक ही परिणाम उत्पन्न करता है:
123456789 | उप दिनांक Add_ReferenceDates ()MsgBox DatePart("yyyy", #4/1/2019#)MsgBox DatePart("yyyy", DateSerial(2019, 4, 1))MsgBox DatePart ("yyyy", DateValue ("1 अप्रैल, 2022"))अंत उप |
या आप किसी दिनांक वाले सेल को संदर्भित कर सकते हैं:
12345 | उप दिनांकPart_ReferenceDate_Cell ()MsgBox DatePart("yyyy", Range("C2").Value)अंत उप |
या दिनांक चर बनाएं और संदर्भित करें:
12345678 | उप दिनांकPart_Variable ()दिनांक के रूप में मंद डीटीडीटी = #4/1/2019#MsgBox दिनांक जोड़ें ("yyyy", dt)अंत उप |
अंतराल की विभिन्न इकाइयों का उपयोग करना
तिमाही
123 | उप दिनांकPart_Quarter ()MsgBox DatePart("q", #6/30/2019#)अंत उप |
महीना
12345 | उप दिनांकPart_Month ()MsgBox DatePart("m", #6/30/2019#)' समकक्षMsgBox महीना(#6/30/2019#)अंत उप |
दिन
12345 | उप दिनांकPart_Day ()MsgBox डेटपार्ट ("डी", #6/30/2019#)' समकक्षसंदेशबॉक्स दिवस(#6/30/2019#)अंत उप |
सप्ताह
12345 | उप दिनांकPart_Week_Test ()MsgBox DatePart("w", #6/30/2019#)' समकक्षMsgBox कार्यदिवस(#6/30/2019#)अंत उप |
घंटा
123456789101112 | उप दिनांकPart_Hour ()दिनांक के रूप में मंद डीटीडिम nHour जितनी देर तकडीटी = #8/14/2019 9:30:00 पूर्वाह्न#nHour = डेटपार्ट ("एच", डीटी)MsgBox nHour' समकक्षसंदेशबॉक्स घंटा (डीटी)अंत उप |
मिनट
123456 | उप दिनांकPart_Minute ()MsgBox DatePart("n", #8/14/2019 9:15:00 AM#)' समकक्षMsgBox Minute(#8/14/2019 9:15:00 AM#)संदेशबॉक्स मिनट(#9:15:00 पूर्वाह्न#)अंत उप |
दूसरा
123456 | उप दिनांकPart_Second ()MsgBox DatePart("s", #8/14/2019 9:15:15 AM#)' समकक्षMsgBox दूसरा(#8/14/2019 9:15:15 AM#)MsgBox सेकेंड (#9:15:15 AM#)अंत उप |