एक्सेल VBA DateAdd फ़ंक्शन
DateAdd फ़ंक्शन को VBA में दिनांक और समय फ़ंक्शन के तहत वर्गीकृत किया जाता है और इस फ़ंक्शन का दिनांक के रूप में आउटपुट मान होता है, यह इनपुट को दिनांक के प्रारूप के रूप में लेता है और नई तिथि को वापस करने के लिए इसे वर्तमान दिनांक में जोड़ता है, इस फ़ंक्शन के लिए सिंटैक्स लेता है तीन तर्क अंतराल, संख्या और तिथि।
DateAdd फ़ंक्शन का उपयोग करके, हम दिए गए दिनांक से दिनों, महीनों और वर्षों को जोड़ और घटा सकते हैं। एक्सेल में तारीख हमारे दैनिक कार्य का हिस्सा और पार्सल है; हम तारीख, समय और अन्य महत्वपूर्ण सामान के बिना एक्सेल में काम नहीं कर सकते। एक तिथि को दूसरी तिथि में जोड़ना, एक तिथि को दूसरे से घटाना, सामान्य प्रक्रिया है। नियमित वर्कशीट में, हम बस अंकगणित संचालन करते हैं और परिणाम प्राप्त करते हैं। VBA में, हमारे पास DateAdd नामक फ़ंक्शन है, जो काम करेगा।
वाक्य - विन्यास
अंतराल: अंतराल कुछ भी नहीं है लेकिन आप किस प्रकार का मूल्य जोड़ना या घटाना चाहते हैं। उदाहरण के लिए, चाहे आप किसी महीने को जोड़ना या घटाना चाहें, चाहे आप दिन जोड़ना या घटाना चाहें, चाहे आप एक वर्ष जोड़ना या घटाना चाहें, चाहे आप तिमाही जोड़ना या घटाना चाहें, आदि…
नीचे कोड और विवरण की एक सूची है।
- संख्या: महीने, दिन, या सप्ताह (अंतराल में प्रदान की गई) की संख्या हम तारीख में जोड़ना या घटाना चाहते हैं।
- दिनांक: वास्तविक दिनांक मान हम अंकगणितीय ऑपरेशन कर रहे हैं।
उदाहरण के लिए, यदि आपके पास दिनांक "14-Mar-2019" है और आप तिथि में दो दिन जोड़ना चाहते हैं, तो नीचे दिए गए कोड का उपयोग करें:
DateAdd ("डी," 2, "14-03-2019")
उपरोक्त कोड का परिणाम है: 16-03-2019
VBA में डेटाडाउन फंक्शन का उपयोग कैसे करें?
उदाहरण # 1 - दिनांक जोड़ें
कार्यवाही शुरू करने के लिए, आइए सरल DateAdd फ़ंक्शन लागू करें। मान लें कि आप दिनांक "14-03-2019" के साथ काम कर रहे हैं।
चरण 1: एक मैक्रो नाम बनाकर उपप्रकार शुरू करें।
चरण 2: चर को दिनांक के रूप में परिभाषित करें।
कोड:
उप दिनांकAdd_Example1 () दिनांक समाप्ति उप के रूप में मंद महीना
चरण 3: इस चर के लिए, मान असाइन करें।
कोड:
उप दिनांकAdd_Example1 () दिनांक नई तिथि के रूप में मंद नया दिनांक = उप उप
चरण 4: DateAdd सूत्र प्रारंभ करें ।
कोड:
उप DateAdd_Example1 () नई तिथि के रूप में नई तिथि = DateAdd (अंतिम उप)
चरण 5: वह ऑपरेशन जो हम करना चाहते हैं। हम तारीख को एक दिन चाहते हैं। इसलिए अंतराल " घ" है।
कोड:
उप DateAdd_Example1 () नई तिथि के रूप में नई तिथि = DateAdd ("d"), अंतिम उप तिथि
चरण 6: हमें कितने दिन जोड़ने की आवश्यकता है? मुझे 5 दिन जोड़ना है ।
कोड:
उप DateAdd_Example1 () नई तिथि के रूप में मंद नया दिनांक = DateAdd ("d", 5, अंत उप
चरण 7: हमारी तारीख “ 14-03-2019 ” है । ”
कोड:
उप DateAdd_Example1 () नई तिथि के रूप में मंद नया दिनांक = DateAdd ("d", 5, "14-03-2019") अंतिम उप
चरण 8: VBA संदेश बॉक्स में चर का परिणाम दिखाएं।
कोड:
Sub DateAdd_Example1 () नई तिथि के रूप में मंद नया दिनांक = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate समाप्ति उप
यदि मैं इस कोड को चलाता हूं, तो मुझे दिनांक 19-03-2019 तक मिल जाना चाहिए।
मेरे सिस्टम की तारीख प्रारूप में "mm-dd-yyyy" है, इसलिए परिणाम सिस्टम तिथि सेटिंग्स के अनुसार दिखाई दे रहा है।
हालाँकि, हम VBA FORMAT फ़ंक्शन को लागू करके इसे संशोधित कर सकते हैं।
कोड:
उप DateAdd_Example1 () दिनांक NewDate के रूप में मंद नया दिनांक = DateAdd ("d", 5, "14-03-2019") MsgBox प्रारूप (NewDate, "dd-mmm-yyyy") अंतिम उप
अब परिणाम इस " 19-Mar-2019 " को पसंद करना चाहिए ।
उदाहरण # 2 - महीने जोड़ें
महीनों को जोड़ने के लिए, नीचे कोड है
कोड:
Sub DateAdd_Example2 () 'महीनों को जोड़ने के लिए दिनांक NewDate के रूप में Dim NewDate = DateAdd ("m", 5, "14-03-2019") MsgBox प्रारूप (NewDate, "dd-mmm-yyyy") अंतिम उप
परिणाम होगा:
उदाहरण # 3 - वर्षों को जोड़ें
DateAdd का उपयोग करके वर्षों को जोड़ने के लिए, नीचे दिए गए कोड का उपयोग करें।
कोड:
उप DateAdd_Example2 () 'वर्ष जोड़ने के लिए वर्ष NewDate के रूप में NewDate = DateAdd ("yyyy", 5, "14-03-2019") MsgBox प्रारूप (NewDate, "dd-mmm-yyyy") समाप्ति उप
परिणाम होगा:
उदाहरण # 4 - क्वार्टर जोड़ें
नीचे तिमाही जोड़ने के लिए कोड है।
कोड:
उप DateAdd_Example2 () 'तिथि को जोड़ने के लिए New Newate New Dateate = DateAdd ("Q", 5, "14-03-2019") MsgBox प्रारूप (NewDate, "dd-mmm-yyyy") अंतिम उप
परिणाम होगा:
उदाहरण # 5 - सप्ताहांत जोड़ें
नीचे कार्यदिवस जोड़ने के लिए कोड है।
कोड:
Sub DateAdd_Example2() 'To add weekdays Dim NewDate As Date NewDate = DateAdd("W", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub
The Result will be:
Example #6 - Add Week
To add week below is the code.
Code:
Sub DateAdd_Example2() 'To add Week Dim NewDate As Date NewDate = DateAdd("WW", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub
The Result will be:
Example #7 - Add Hour
To add the hour below is the code.
Code:
Sub DateAdd_Example2() 'To add hour Dim NewDate As Date NewDate = DateAdd("h", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy hh:mm:ss") End Sub
The Result will be
Example #8 - Subtract Date
In order to add, we have supplied positive numbers; to subtract, and we need to supply negative numbers that are all.
आपूर्ति की गई तारीख से 3 महीने घटाना करने के लिए, नीचे कोड है।
कोड:
Sub DateAdd_Example3 () 'तिथि जोड़ने के लिए दिनांक NewDate = DateAdd ("m", -3, "14-03-2019") के रूप में घंटे जोड़ें
इस कोड का परिणाम है:
मैं तिथि 14 से 3 महीने घटा वें मार्च 2019 यह पिछले वर्ष के लिए वापस जाना होगा।
