दिनांकडिफ विवरण
निर्दिष्ट अंतराल के आधार पर दो दिनांक मानों के बीच का अंतर देता है।
सरल दिनांकडिफ उदाहरण
यहां एक साधारण डेटडिफ उदाहरण दिया गया है:
| 123 | उप दिनांकडिफ_वर्ष ()MsgBox DateDiff("yyyy", #1/1/2019#, #8/1/2021#)अंत उप |
यह कोड 2 लौटाएगा। यह 2 दिनों के बीच वर्ष पर ("yyyy" द्वारा दर्शाया गया) अंतर है। (2021 - 2022 = 2)
उपरोक्त उदाहरण में, दिनांक 1 और दिनांक 2 की स्थिति बदलना।
| 123 | उप दिनांकडिफ_वर्ष ()MsgBox DateDiff("yyyy", #8/1/2021#, #1/1/2019#)अंत उप |
यह कोड -2 वापस आ जाएगा।
डेटडिफ सिंटेक्स
VBA संपादक में, आप DateDiff फ़ंक्शन के सिंटैक्स को देखने के लिए "DateDiff(") टाइप कर सकते हैं:
डेटडिफ फ़ंक्शन में 5 तर्क होते हैं:
मध्यान्तर: समय इकाई (दिन, महीने, वर्ष, आदि)। स्ट्रिंग के रूप में दर्ज करें। (उदा. "एम" महीने के लिए)
| स्थापना | विवरण |
|---|---|
| वर्ष | वर्ष |
| क्यू | तिमाही |
| एम | महीना |
| आप | वर्ष का दिन |
| डी | दिन |
| वू | काम करने के दिन |
| डब्ल्यूडब्ल्यूई | सप्ताह |
| एच | घंटा |
| एन | मिनट |
| एस | दूसरा |
दिनांक १, दिनांक २: गणना में आप दो तिथियों का उपयोग करना चाहते हैं।
सप्ताह का पहला दिन: एक स्थिरांक जो सप्ताह के पहले दिन को निर्दिष्ट करता है। यह वैकल्पिक है। यदि निर्दिष्ट नहीं है, तो रविवार माना जाता है।
| लगातार | मूल्य | विवरण |
|---|---|---|
| वीबीयूज सिस्टम | 0 | एनएलएस एपीआई सेटिंग का प्रयोग करें। |
| वीबीरविवार | 1 | रविवार (डिफ़ॉल्ट) |
| वीबीसोमवार | 2 | सोमवार |
| वीबीमंगलवार | 3 | मंगलवार |
| वीबीबुधवार | 4 | बुधवार |
| वीबीगुरुवार | 5 | गुरूवार |
| वीबीशुक्रवार | 6 | शुक्रवार |
| वीबीशनिवार | 7 | शनिवार |
वर्ष का पहला सप्ताह: एक स्थिरांक जो वर्ष के पहले सप्ताह को निर्दिष्ट करता है। यह वैकल्पिक है। यदि निर्दिष्ट नहीं है, तो पहला सप्ताह वह सप्ताह माना जाता है जिसमें 1 जनवरी आता है।
| लगातार | मूल्य | विवरण |
|---|---|---|
| वीबीयूज सिस्टम | 0 | एनएलएस एपीआई सेटिंग का प्रयोग करें। |
| वीबीफर्स्टजन१ | 1 | उस सप्ताह से प्रारंभ करें जिसमें 1 जनवरी आता है (डिफ़ॉल्ट)। |
| वीबीफर्स्टफोरडेज | 2 | पहले सप्ताह से शुरू करें जिसमें नए साल में कम से कम चार दिन हों। |
| वीबीफर्स्टफुल वीक | 3 | साल के पहले पूरे सप्ताह से शुरू करें। |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
एक्सेल वीबीए डेटडिफ फंक्शन के उदाहरण
संदर्भ तिथियां
शुरू करने के लिए, हम वीबीए डेटडिफ फ़ंक्शन का उपयोग करके तिथियों को संदर्भित करने के विभिन्न तरीकों का प्रदर्शन करेंगे।
इनमें से प्रत्येक डेटडिफ फ़ंक्शन एक ही परिणाम उत्पन्न करता है:
| 123456789 | उप दिनांकDiff_ReferenceDates ()MsgBox DateDiff("m", #4/1/2019#, #8/1/2021#)MsgBox DateDiff("m", DateSerial(2019, 4, 1), DateSerial(2021, 8, 1))MsgBox DateDiff("m", DateValue ("1 अप्रैल, 2022"), DateValue ("1 अगस्त, 2022"))अंत उप |
या आप दिनांक वाले कक्षों को संदर्भित कर सकते हैं:
| 12345 | उप दिनांकDiff_ReferenceDates_Cell ()MsgBox DateDiff("m", Range("C2").Value, Range("C3").Value)अंत उप |
या दिनांक चर बनाएं और संदर्भित करें:
| 123456789 | उप दिनांकडिफ_वेरिएबल ()मंद dt1 तिथि के रूप में, dt2 तिथि के रूप मेंडीटी1 = #4/1/2019#डीटी2 = #8/1/2021#MsgBox DateDiff("m", dt1, dt2)अंत उप |
VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!
अंतराल की विभिन्न इकाइयों का उपयोग करना
क्वार्टरों
| 123 | उप दिनांकडिफ_क्वार्टर ()MsgBox "तिमाहियों की संख्या:" और DateDiff("q", #1/1/2019#, #1/1/2021#)अंत उप |
महीने
| 123 | उप दिनांकDiff_Month ()MsgBox "महीनों की संख्या:" और DateDiff("m", #1/1/2019#, #1/1/2021#)अंत उप |
दिन
| 123 | उप दिनांकडिफ_डे ()MsgBox "दिनों की संख्या:" और DateDiff("d", #1/1/2019#, #1/1/2021#)अंत उप |
हफ्तों
| 123 | उप दिनांकडिफ_सप्ताह ()MsgBox "सप्ताहों की संख्या:" और DateDiff("w", #1/1/2019#, #1/1/2021#)अंत उप |
घंटे
| 123456789101112 | उप दिनांकDiff_Hour ()मंद dt1 तिथि के रूप मेंमंद dt2 तिथि के रूप मेंडिम एनडिफ एज़ लॉन्गdt1 = #8/14/2019 9:30:00 पूर्वाह्न#dt2 = #8/14/2019 1:00:00 अपराह्न#एनडीआईएफ = डेटडिफ ("एच", डीटी 1, डीटी 2)MsgBox "घंटे:" और nDiffअंत उप |
मिनट
| 123 | उप दिनांकडिफ_मिनट ()MsgBox "मिनट:" और डेटडिफ ("एन", #8/14/2019 9:30:00 पूर्वाह्न#, #8/14/2019 9:35:00 पूर्वाह्न#)अंत उप |
सेकंड
| 123 | उप दिनांकडिफ_सेकंड ()MsgBox "सेकंड:" और DateDiff("s", #8/14/2019 9:30:10 AM#, #8/14/2019 9:30:22 AM#)अंत उप |
