एक्सेल VBA DatePart फ़ंक्शन
वीबीए में डेटपार्ट का उपयोग किसी तर्क के रूप में दी गई तारीख के लिए तारीख के हिस्से की पहचान करने के लिए किया जाता है, तारीख का हिस्सा दिन या महीने या साल या यहां तक कि घंटे मिनट और सेकंड हो सकता है, इस फ़ंक्शन का सिंटैक्स बहुत ही स्पष्ट करता है; यह निम्नानुसार है, Datepart (अंतराल, तर्क के रूप में दिनांक)।
वाक्य - विन्यास
DatePart फ़ंक्शन का सिंटैक्स नीचे दिया गया है:
- अंतराल: एक अंतराल तर्क में पारित होने वाला डेटा एक स्ट्रिंग प्रकार है, जिसका अर्थ है कि इस तर्क में कोई भी मान्य मान हो सकता है। अंतराल वर्ष, माह, तिमाही, दिन, सप्ताह, घंटा, मिनट, दूसरा हो सकता है।
- दिनांक: वह दिनांक मान जिसका मूल्यांकन किया जाना चाहिए।
- Firstdayofweek: यह एक वैकल्पिक पैरामीटर है। यह सप्ताह के पहले दिन का वर्णन करता है। यहां तक कि इसे नजरअंदाज भी किया जा सकता है। यदि इस पैरामीटर को अनदेखा किया जाता है, तो यह सप्ताह के पहले दिन के रूप में स्वचालित रूप से रविवार को ले जाता है। यदि आप इसे बदलना चाहते हैं, तो इस पैरामीटर का उपयोग किया जा सकता है। इस तर्क में vbUseSystem 0 शामिल हो सकता है।
NLS API सेटिंग का उपयोग करें
vbSunday (डिफ़ॉल्ट), vbMonday, vbTuesday, vbWednesday, vbThursday vbFriday, vbSaturday।
- Firstweekofyear: इसी तरह, शीर्ष पैरामीटर, यह भी एक वैकल्पिक पैरामीटर है। यह वर्ष के पहले सप्ताह का वर्णन करता है। इस पैरामीटर को अनदेखा भी किया जा सकता है। यदि इस पैरामीटर को अनदेखा किया जाता है, तो यह 1 जनवरी को वर्ष के पहले सप्ताह के रूप में मानता है। यदि आप इसे बदलना चाहते हैं, तो इस पैरामीटर का उपयोग किया जा सकता है।
इस तर्क में निम्नलिखित मान शामिल हो सकते हैं।
vbUseSystem, vbFirstJan1, vbFirstFourDays, vbFirstFullWeek।
सभी मापदंडों को देने के बाद, दिनांकांक () संख्यात्मक मान लौटाएगा जैसे कि संपूर्ण तिथि या वर्ष या महीना या तिमाही, आदि। इसलिए इस फ़ंक्शन का वापसी प्रकार एक संख्यात्मक मान होगा।
VBA में DatePart फ़ंक्शन का उपयोग कैसे करें?
उदाहरण 1
पहला उदाहरण उस महीने की पूरी तारीख और तिमाही को प्रदर्शित करना है।
इसे प्राप्त करने के लिए, हमें उस गोटो डेवलपर टैब के लिए विजुअल बेसिक में कुछ कोड लिखना होगा और फिर विजुअल बेसिक पर क्लिक करना होगा, और फिर एक विंडो खुल जाएगी।
उस विंडो में, जैसा कि नीचे दिखाया गया है कोड लिखें।
कोड:
Sub date_Datepart () डिम mydate as Variant mydate = # 12/25/2019 # MsgBox mydate MsgBox DatePart ("q", mydate) 'तिमाही अंतिम उप प्रदर्शित करता है
इस उदाहरण में, हमने तिथि को प्रदर्शित करने के लिए तिथि के कुछ भाग का उपयोग किया है और तिथि का कुछ हिस्सा है। यह प्रदर्शित करता है कि वर्ष की कौन सी तिमाही किस तारीख को आ रही है।
यदि हम कोड को डिबग करते हैं, तो पहली बार कोड "Msgbox mydate" निष्पादित करते समय दिनांक को एक पूर्ण तिथि के रूप में प्रदर्शित किया जाएगा क्योंकि यादृच्छिक तिथि "mydate" चर को सौंपा गया है।
इसके बाद, हम यह प्रदर्शित कर रहे हैं कि उस वर्ष की किस तिमाही के अंतर्गत तारीख आती है।
जब आप कोड को मैन्युअल रूप से चलाते हैं या शॉर्टकट कुंजी F5 का उपयोग करते हैं, तो दिनांक को ओके पर क्लिक करने के बाद दिखाया जाएगा। इसके बाद, तिथि का चौथाई भाग प्रदर्शित किया जाएगा। इसे नीचे स्क्रीनशॉट में दिखाया जा सकता है।
इसी तरह, क्वार्टर, केवल तारीख या माह या वर्ष भी प्रदर्शित किया जा सकता है।
उदाहरण # 2
इस उदाहरण में, मैं मैन्युअल रूप से रन समय पर तारीख दर्ज करूंगा।
कोड:
उप date1_datePart () दिनांक के रूप में मंद आज दिनांक घोषित करें चर। Dim Msg TodayDate = InputBox ("एक तिथि दर्ज करें:") Msg = "तिमाही:" और दिनांकपार्ट ("q", टुडेडेट) MsgBox Msg End Sub
इस उदाहरण में, हम कोशिश कर रहे हैं कि मैन्युअल रूप से दिनांक को रन समय पर प्राप्त करें। कोड "TodayDate = InputBox (" एक तिथि दर्ज करें ")" यह पंक्ति इंगित करती है कि तिथि मैन्युअल रूप से दर्ज की जा सकती है,
मैन्युअल रूप से दिनांक दर्ज करने के बाद, यह संदेश बॉक्स में दिनांक का क्वार्टर प्रदर्शित करता है। इसे नीचे स्क्रीनशॉट में दिखाया जा सकता है।
जैसा कि जून महीना 2 तिमाही में है, यह 2 nd क्वार्टर प्रदर्शित करता है , जैसा कि ऊपर दिए गए स्क्रीनशॉट में दिखाया गया है।
उदाहरण # 3
इस उदाहरण में, सभी मान कोशिकाओं में भरे जाएंगे।
कोड:
निजी उप कार्यपुस्तिका_ओपन () डिम डमीडेट के रूप में दिनांक डमीडेट = ActiveSheet.Cells (2, 2) ActiveSheet.Cells (2, 2) .Value = दिन (डमीडेट) ActiveSheet.Cells (3, 2) .Value = घंटा (DummyDate) ActiveSheet। .Cells (4, 2)। मिनट = मिनट (डमीडेट) ActiveSheet.Cells (5, 2) .Vueue = महीना (डमीडेट) ActiveSheet.Cells (6, 2) .Value = सप्ताह के अंत में (डमीडेट) अंतिम उप।
कोशिकाओं को एक्सेल शीट में कोशिकाओं में भरा जाता है, इसके लिए कोड को एक्टिव शीट.सेल के रूप में लिखा जाता है। इस कोड के द्वारा, वह तारीख जो वर्ष, महीने, या तारीख में मौजूद है, को दी गई कोशिकाओं में डाला जा सकता है।
उदाहरण के लिए, उपरोक्त स्क्रीनशॉट में,
दिन को एक्सेल शीट की कोशिकाओं (2, 2) में डाला जाना है। इसलिए कोड को "ActiveSheet.Cells (2, 2) .Value = Day (DummyDate)" के रूप में लिखा गया है।
F5 कुंजी या मैन्युअल रूप से कोड का उपयोग करें, और परिणाम नीचे दिखाया जाएगा।
यह आज डिफ़ॉल्ट रूप से तारीख ले रहा है, और यह 30 इन (2,6) सेल के रूप में प्रदर्शित हो रहा है।
इसी तरह, अन्य सभी डेटा के लिए भी इसे भरा जा सकता है।
DatePart फ़ंक्शन का उपयोग
- DatePart फ़ंक्शन का उपयोग दिनांक के भाग को प्रदर्शित करने के लिए किया जा सकता है जैसा कि नाम से संकेत मिलता है, अर्थात, यदि केवल दिन या महीने या वर्ष की तारीख को प्रदर्शित करने की आवश्यकता है, तो इस फ़ंक्शन का उपयोग किया जा सकता है।
- यह फ़ंक्शन किसी विशेष दिनांक से दिनांक, माह और एक वर्ष को भी अलग करता है।
- इस फ़ंक्शन का उपयोग करके, दिनांक को न केवल अलग किया जाता है। हम तिमाही, दिन, घंटा, मिनट और एक सेकंड भी प्राप्त कर सकते हैं।
याद रखने वाली चीज़ें
- इस फ़ंक्शन का उपयोग केवल VBA फ़ंक्शन के रूप में किया जा सकता है। सामान्य एक्सेल में, इसका उपयोग नहीं किया जा सकता है।
- इस फ़ंक्शन में मान के रूप में दी गई तिथियां किसी भी प्रारूप में दी जा सकती हैं, जैसे कि एमएमडी-डी-वाईवाई प्रारूप या डीडी-एमएम-वाईवाईवाई प्रारूप आदि।
- यह फ़ंक्शन सभी मानों को अलग-अलग अलग करेगा, जैसे तिथि, महीना, वर्ष या समय भी एक घंटा, मिनट, सेकंड।
- यह Microsoft Excel के VBA में दिनांक और समय कार्य के तहत आयोजित किया जाता है।
