दिनांक विवरण जोड़ें
VBA DateAdd फ़ंक्शन आपको दिनांक या समय में दिन, महीने, वर्ष, घंटे, तिमाही आदि जोड़ने (या घटाने) की अनुमति देता है।
साधारण तिथिउदाहरण जोड़ें
यहां एक साधारण दिनांक जोड़ें उदाहरण है:
| 123 | उप दिनांक Add_Day ()MsgBox DateAdd("d", 20, #4/1/2021#)अंत उप |
यह कोड दिनांक ४/१/२०२१ में २० दिन ("डी" द्वारा इंगित) जोड़ देगा:
इसके बजाय, हम दिनांक 4/1/2021 में 20 महीने जोड़ने के लिए अंतराल तर्क को "डी" से "एम" में बदल सकते हैं:
| 123 | उप दिनांक Add_Month ()MsgBox DateAdd("m", 20, #4/1/2021#)अंत उप |
संदेश बॉक्स में दिनांक प्रदर्शित करने के बजाय, हम इसे एक चर के लिए निर्दिष्ट कर सकते हैं:
| 123456 | उप दिनांकAdd_Day2 ()दिनांक के रूप में मंद डीटीडीटी = डेटएड ("डी", 20, #4/1/2021#)संदेशबॉक्स डीटीअंत उप |
दिनांक सिंटैक्स जोड़ें
VBA संपादक में, आप DateAdd फ़ंक्शन के लिए सिंटैक्स देखने के लिए "DateAdd(" टाइप कर सकते हैं:
डेटएड फ़ंक्शन में 3 तर्क होते हैं:
मध्यान्तर: समय इकाई (दिन, महीने, वर्ष, आदि)। स्ट्रिंग के रूप में दर्ज करें। (उदा. "एम" महीने के लिए)
| स्थापना | विवरण |
|---|---|
| वर्ष | वर्ष |
| क्यू | तिमाही |
| एम | महीना |
| आप | वर्ष का दिन |
| डी | दिन |
| वू | काम करने के दिन |
| डब्ल्यूडब्ल्यूई | सप्ताह |
| एच | घंटा |
| एन | मिनट |
| एस | दूसरा |
संख्या: जोड़ने के लिए समय इकाइयों की संख्या का प्रतिनिधित्व करने वाला संख्यात्मक मान। (उदा. 20 20 इकाइयों को जोड़ने के लिए)
दिनांक: प्रारम्भिक तिथि। अगला भाग देखें।
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
एक्सेल वीबीए डेटएड फंक्शन के उदाहरण
संदर्भ तिथियां
शुरू करने के लिए, हम वीबीए डेटएड फ़ंक्शन का उपयोग करके तिथियों को संदर्भित करने के विभिन्न तरीकों का प्रदर्शन करेंगे।
इनमें से प्रत्येक DateAdd फ़ंक्शन एक ही परिणाम उत्पन्न करते हैं:
| 123456789 | उप दिनांक Add_ReferenceDates ()MsgBox DateAdd("m", 2, #4/1/2021#)MsgBox DateAdd("m", 2, DateSerial(२०२१, ४, १))MsgBox DateAdd("m", 2, DateValue("1 अप्रैल, 2022"))अंत उप |
या आप किसी दिनांक वाले सेल को संदर्भित कर सकते हैं:
| 12345 | उप दिनांक Add_ReferenceDates_Cell ()MsgBox DateAdd("m", 2, Range("C2").Value)अंत उप |
या दिनांक चर बनाएं और संदर्भित करें:
| 12345678 | उप दिनांक Add_Variable ()दिनांक के रूप में मंद डीटीडीटी = #4/1/2021#MsgBox दिनांक जोड़ें ("एम", 2, डीटी)अंत उप |
तिथियां जोड़ें या घटाएं
हम आपको पहले ही दिखा चुके हैं कि किसी तिथि में कैसे जोड़ा जाता है:
| 123456 | उप दिनांकAdd_Day2 ()दिनांक के रूप में मंद डीटीडीटी = डेटएड ("डी", 20, #4/1/2021#)संदेशबॉक्स डीटीअंत उप |
आप एक ऋणात्मक संख्या (उदा. 20 के बजाय -20) का उपयोग करके तिथियों से घटा सकते हैं:
| 123456 | उप दिनांक Add_Day ()दिनांक के रूप में मंद डीटीडीटी = डेटएड ("डी", -20, #4/1/2021#)संदेशबॉक्स डीटीअंत उप |
VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!
समय की विभिन्न इकाइयों को जोड़ना
वर्षों
| 123 | उप दिनांक Add_Years ()MsgBox DateAdd("yyyy", 4, #4/1/2021#)अंत उप |
तिमाही
| 123 | उप दिनांक Add_Quarters ()MsgBox DateAdd("q", 2, #4/1/2021#)अंत उप |
महीना
| 123 | उप दिनांक Add_Months ()MsgBox DateAdd("m", 2, #4/1/2021#)अंत उप |
वर्ष का दिन
| 123 | उप दिनांकAdd_DaysofYear ()MsgBox DateAdd("y", 2, #4/1/2021#)अंत उप |
दिन
| 123 | उप दिनांकAdd_Days3 ()MsgBox DateAdd("d", 2, #4/1/2021#)अंत उप |
काम करने के दिन
| 123 | उप दिनांक Add_Weekdays ()MsgBox DateAdd("w", 2, #4/1/2021#)अंत उप |
सप्ताह
| 123 | उप दिनांक Add_Weeks ()MsgBox DateAdd("ww", 2, #4/1/2021#)अंत उप |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
आज में जोड़ें
ये उदाहरण दिनांक फ़ंक्शन का उपयोग करके आज के समय की इकाइयों को जोड़ देंगे।
| 123456789 | उप दिनांक Add_Year_Test ()Dim dtToday as dateDim dtLater as datedtToday = दिनांकdtLater = DateAdd ("yyyy", 1, dtToday)MsgBox "एक साल बाद है" और dtLaterअंत उप |
| 123 | उप दिनांक Add_Quarter_Test ()MsgBox "2 तिमाही बाद में है" और DateAdd("q", 2, Date)अंत उप |
समय जोड़ना और घटाना
डेटएड फ़ंक्शन टाइम्स के साथ भी काम करता है। यहाँ एक समय में समय जोड़ने (या घटाने) के कुछ उदाहरण दिए गए हैं:
घंटा
यह उदाहरण एक समय में 2 घंटे जोड़ देगा:
| 123 | उप दिनांक Add_Hour ()MsgBox DateAdd("h", 2, #4/1/2021 6:00:00#)अंत उप |
मिनट
यह उदाहरण वर्तमान समय से 120 मिनट घटाएगा:
| 123 | उप दिनांक Add_Minute_Subtract ()MsgBox DateAdd("n", -120, Now)अंत उप |
दूसरा
| 123 | उप दिनांक Add_Second ()MsgBox DateAdd("s", 2, #4/1/2021 6:00:00#)अंत उप |
स्वरूपण तिथियां
जब दिनांक (या समय) Excel, UserForms, या Messageboxes में प्रदर्शित होते हैं, तो आपको स्वरूप फ़ंक्शन का उपयोग करके इंगित करना चाहिए कि दिनांक कैसे प्रदर्शित किए जाने चाहिए। हमने नीचे कुछ उदाहरण शामिल किए हैं:
| 123456789101112131415161718 | उप स्वरूपण दिनांक समय ()'वर्तमान तिथि और समय लौटाता है'डीटी = अब ()'भूतपूर्व। 07/02/2021रेंज ("बी 2") = प्रारूप (डीटी, "मिमी/दिन/वर्ष")'भूतपूर्व। 2 जुलाई 2022रेंज ("बी ३") = प्रारूप (डीटी, "एमएमएमएम डी, yyyy")'भूतपूर्व। 2 जुलाई 2022 09:10रेंज ("बी 4") = प्रारूप (डीटी, "मिमी/दिन/वर्ष एचएच: मिमी")'भूतपूर्व। 7.2.21 9:10 पूर्वाह्नरेंज ("बी 5") = प्रारूप (डीटी, "एमडी वाई एच: मिमी एएम/पीएम")अंत उप |
