एक्सेल VBA DateSerial फ़ंक्शन
VBA में DateSerial फ़ंक्शन उपयोगकर्ताओं द्वारा दिए गए मानों से दिनांक लौटाता है। हमें आपूर्ति करने की आवश्यकता है कि वर्ष क्या है, दिन क्या है, और महीना क्या है। परिणाम आपके सिस्टम की तारीख प्रारूप पर आधारित होगा।
नीचे DatesERIAL फ़ंक्शन का सिंटैक्स है ।
# 1 - वर्ष: हमें पूर्णांक संख्या दर्ज करने की आवश्यकता है क्योंकि वर्ष क्या है? पूर्णांक संख्या की आपूर्ति करते समय, हमें चीजों को ध्यान में रखना होगा।
- हम 0 से 9999 तक नंबर की आपूर्ति कर सकते हैं।
- 1930 से 2029 तक 0 से 99 तक के एक और दो अंकों की संख्या का इलाज किया जाएगा।
- नकारात्मक पूर्णांक संख्या वर्ष 2000 से घटा दी जाएगी। उदाहरण के लिए, यदि आप -1 की आपूर्ति करते हैं, तो परिणाम 1999 - 2000 = 1 1999 के कारण होगा।
# 2 - महीना: हमें पूर्णांक संख्या दर्ज करने की आवश्यकता है क्योंकि महीना क्या है? इस संख्या को दर्ज करते समय, हमें चीजों को ध्यान में रखना होगा।
- हम केवल 1 से 12 तक संख्याओं की आपूर्ति कर सकते हैं।
- यदि आपूर्ति की गई पूर्णांक मान 0 है, तो यह पिछले वर्ष के महीने "दिसंबर" का प्रतिनिधित्व करेगा।
- यदि आपूर्ति पूर्णांक मान -1 है, तो यह पिछले वर्ष के "नवंबर" महीने का प्रतिनिधित्व करेगा। इस तरह, जब नकारात्मक मूल्य बढ़ता है, तो यह पिछड़े वर्ष महीने का प्रतिनिधित्व करता रहेगा।
- यदि आपूर्ति की संख्या 12 से अधिक है, यानी यदि संख्या 13 है, तो यह अगले वर्ष के महीने "जनवरी" का प्रतिनिधित्व करेगा। यदि संख्या 14 है, तो इसे अगले वर्ष के महीने "फरवरी" के रूप में माना जाएगा।
# 3 - दिन: हमें पूर्णांक संख्या दर्ज करने की आवश्यकता है क्योंकि दिन क्या है? इस संख्या को दर्ज करते समय, हमें चीजों को ध्यान में रखना होगा।
- हम वर्तमान माह के दिनों के लिए पूर्णांक संख्याओं को 1 से 31 तक दर्ज कर सकते हैं।
- यदि संख्या 0 है, तो यह पिछले महीने के अंतिम दिन का प्रतिनिधित्व करेगा।
- यदि संख्या -1 है, तो यह पिछले महीने के दूसरे अंतिम दिन का प्रतिनिधित्व करेगा।
- यदि आप इस महीने के अंतिम दिन +1 की आपूर्ति करते हैं, तो यह अगले महीने के पहले दिन का प्रतिनिधित्व करेगा। उदाहरण के लिए, यदि अगस्त का अंतिम दिन 31 है और यदि आप दिन को 31 + 1 के रूप में आपूर्ति करते हैं, तो यह सितंबर के पहले दिन का प्रतिनिधित्व करेगा।
VBA में DATESERIAL फ़ंक्शन का उपयोग कैसे करें?
उदाहरण 1
DATESERIAL फ़ंक्शन का उपयोग करने के लिए, मैक्रो कोड लिखना प्रारंभ करें।
चरण 1: उप प्रक्रिया शुरू करें
सबसे पहले, VBA उपप्रक्रिया बनाएँ, जैसा कि नीचे दिखाया गया है।
चरण 2: परिवर्तनीय घोषित करें
अब DATE के रूप में एक वैरिएबल घोषित करें।
चरण 3: उस चर के लिए DateSerial फ़ंक्शन असाइन करें।
अब इस चर के लिए, DatesERIAL फ़ंक्शन असाइन करें।
चरण 4: अब DateSerial फ़ंक्शन में वर्ष, माह और दिन मान दर्ज करें
YEAR आपूर्ति 2019 के लिए, MONTH आपूर्ति 08 के लिए, और DAY आपूर्ति 05 के लिए।
चरण 5: संदेश बॉक्स में परिणाम दिखाएं
अब संदेश बॉक्स में चर "मेरी तिथि" का परिणाम दिखाएं।
कोड:
विकल्प स्पष्ट उप तिथि
चरण 6: कोड चलाएँ
अब नीचे दिए गए दिनांक को देखने के लिए इस कोड को चलाएं।
परिणाम कहता है "8/5/2019"। मेरे सिस्टम में दिनांक प्रारूप "MM-DD-YYYY" के रूप में है, इसीलिए परिणाम भी उसी प्रारूप में है।
हम VBA में FORMAT फ़ंक्शन का उपयोग करके दिनांक का प्रारूप भी बदल सकते हैं। नीचे की तरह FORMAT फ़ंक्शन को लागू करें।
कोड:
विकल्प स्पष्ट उप DateSerial_Example1 () दिनांक Mydate के रूप में डिम मायडेट = DateSerial (2019, 8, 5) MsgBox प्रारूप (Mydate, "DD-MMM-YYYY": अंतिम उप
यह प्रारूप "DD-MMM-YYYY" पर लागू होगा और परिणाम इस प्रकार है।
उदाहरण # 2
हम चर भी घोषित कर सकते हैं और उन चर को मान प्रदान कर सकते हैं। उदाहरण के लिए, नीचे दिए गए कोड को देखें।
कोड:
उप DateSerial_Example2 () डिम माइडेट के रूप में दिनांक डिम Myyear इंटेगर के रूप में डिम MyMonth इंटेगर डिम MyDay के रूप में Integer MyYear = 2019 MyMonth = 8 MyDay = 5 MyDay = DateSerial (MyYear, MyMonth, MyDay) MsgBox प्रारूप (Mydate, DD) ") अंत उप
Instead of supplying year, month, and day directly to the DATESERIAL function, we have declared variables and assigned values to them. Then later, we have supplied variables to the DATESERIAL function.
This is how we can make use of variables in VBA to store values.
Example #3
Now we will experiment with the year. I will assign the year value as 1 and see the result.
Single & Double-digit numbers in YEAR represents a year from 1930 to 2029. So 01 means 2001, 02 means 2002, and so on.
Now let’s change the month number to 0 and see the result.
Look at the code here, Year is 2019, and the month is 0. But look at the result it says 05-Dec-2019, whereas a supplied year is 2019 it says 2018 i.e., the previous year.
यह इसलिए है क्योंकि हमने महीने की आपूर्ति की है क्योंकि 0 कार्यदिवस समारोह पिछले वर्ष के अंतिम महीने में महीने लेता है और वर्ष को तदनुसार बदलता है।
इस तरह, फ़ंक्शन के प्रभाव को देखने के लिए विभिन्न संख्याओं का प्रयास करें।
याद रखने वाली चीज़ें
- आपको यह जानना होगा कि कौन सी संख्या किस वर्ष, माह और डेकेयर का प्रतिनिधित्व करती है। समझने के लिए सिंटेक्स स्पष्टीकरण को ध्यान से पढ़ें।
- परिणाम आपके सिस्टम की तारीख प्रारूप पर आधारित होगा। यदि आप एक संशोधित परिणाम चाहते हैं, तो आपको अपनी सुविधा के अनुसार FORMAT फ़ंक्शन का उल्लेख करने की आवश्यकता है।
