VBA में DatedIFF फ़ंक्शन VBA में एक इनबिल्ट फ़ंक्शन है जिसे VBA में दिनांक और समय फ़ंक्शन के अंतर्गत भी वर्गीकृत किया जाता है, इस फ़ंक्शन का उपयोग दो तिथियों के बीच अंतर प्राप्त करने के लिए किया जाता है, यह फ़ंक्शन तीन तर्क लेता है पहला तर्क है कि हम जो अंतर चाहते हैं उसका क्या हिस्सा है जो वर्ष दिन या महीने या सेकंड और दो तारीख हो सकता है और परिणाम पूर्णांक है।
VBA में दिनांकित फ़ंक्शन
VBA में DatedIFF फ़ंक्शन दिन, महीने, तिमाही और वर्षों में दो तिथियों के बीच अंतर की गणना करता है।
एक्सेल में, दो तिथियों के बीच अंतर खोजने के कई तरीके हैं। आपको दो तिथियों के बीच अंतर की गणना करने के लिए एक विशेष सूत्र की आवश्यकता नहीं है।
उदाहरण के लिए, नीचे दी गई छवि देखें।
अगर हम इन दोनों तारीखों के बीच के अंतर की गणना करना चाहते हैं, तो हम तारीख 1 को तारीख 2 से घटा सकते हैं।
इसने हमें दो तिथियों के बीच कई दिनों में अंतर दिया है। इस सामान्य सूत्र के साथ यही समस्या है। अगर हमें महीनों, वर्षों, तिमाहियों, आदि में अंतर की आवश्यकता है … यह नहीं दे सकता।
इस लेख में, हम आपको VBA में इस DateDiff फ़ंक्शन का उपयोग करने का तरीका दिखाएंगे।
Excel VBA में DatedIFF फ़ंक्शन क्या है?
DateDiff VBA में के लिए खड़ा है "दो तिथियों के बीच दिनांक अंतर।"
यह फ़ंक्शन हमें दो तिथियों के बीच के समय अंतराल की संख्या दे सकता है। जब हम दो तिथियों के बीच अंतर खोजना चाहते हैं, तो हम इसे दिनों, हफ्तों, महीनों, तिमाहियों, आदि में पा सकते हैं।
फ़ंक्शन को समझने के लिए, फ़ंक्शन के निचले सिंटैक्स को देखें।
अंतराल: यह कुछ भी नहीं है लेकिन आप किस तरह से तिथि अंतर की गणना करना चाहते हैं। चाहे वह दिन, महीने, सप्ताह, तिमाहियों, आदि में हो … नीचे उसी की सूची है।
दिनांक 1: पहली तारीख क्या है जिसे आप अंतर खोजना चाहते हैं।
दिनांक 2: दूसरी तारीख क्या है जिसे आप दिनांक 1 से अंतर खोजना चाहते हैं। दिनांक 1: पहली तारीख क्या है जिसे आप अंतर खोजना चाहते हैं।
यहाँ सूत्र दिनांक 2 - दिनांक 1 है।
(सप्ताह का पहला दिन): सप्ताह का पहला दिन क्या है? हम निम्नलिखित तर्कों से सहमत हो सकते हैं।
(वर्ष का पहला सप्ताह): वर्ष का पहला सप्ताह क्या होता है। हम निम्नलिखित तर्क दर्ज कर सकते हैं।
एक्सेल VBA में DatedIFF फ़ंक्शन के उदाहरण
निम्नलिखित एक्सेल VBA डेटडिफ़ के उदाहरण हैं।
उदाहरण # 1 - दिनों में अंतर खोजने के लिए
मान लें कि आपके पास दो तिथियां हैं, "15-01-2018" और "15-01-2019"। आइए इन दोनों तिथियों के बीच सभी प्रकार के अंतरों को जानें।
चरण 1: पहले एक मैक्रो नाम बनाएँ।
कोड:
उप DateDiff_Example1 () उप सब
चरण 2: तिथि के रूप में दो चर को परिभाषित करें।
कोड:
उप DateDiff_Example1 () अंतिम तिथि दिनांक के रूप में Dim Date1 दिनांक समाप्ति उप के रूप में
चरण 3: अब, Date1 चर के लिए, "15-01-2018" और Date2 चर के लिए, "15-01-2019" असाइन करें।
कोड:
Sub DateDiff_Example1 () मंद तिथि 1 तारीख के रूप में मंद तिथि 2 तारीख दिनांक 1 = "15-01-2018" दिनांक 2 = "15-01-2019" अंतिम उप
चरण 4: अब, परिणामों को संग्रहीत करने के लिए, लॉन्ग के रूप में एक और चर को परिभाषित करें।
कोड:
उप DateDiff_Example1 () डिम तारीख 1 जैसा कि दिनांक डिम तारीख 2 लंबी तारीख 1 के रूप में डिम परिणाम = "15-01-2018" दिनांक 2 = "15-01-2019" अंतिम उप
चरण 5: अब VBA में DatedIFF फ़ंक्शन के माध्यम से इस चर के लिए मान असाइन करें
कोड:
उप DateDiff_Example1 () दिनांक दिनांक 1 तारीख के रूप में मंद तिथि 2 डिम दिनांक 2 के रूप में परिणाम दिनांक 1 = "15-01-2018" दिनांक 2 = "15-01-2019" परिणाम = दिनांकडिफ़ (अंतिम उप)
चरण 6: पहला तर्क यह है कि इन दो तिथियों के बीच हमें किस तरह के अंतर की आवश्यकता है। मान लें कि हमें दिनों की संख्या खोजने की आवश्यकता है, इसलिए "डी" के रूप में तर्क की आपूर्ति करें
कोड:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result =DateDiff("D", End Sub
Step 7: What is the first date to find the difference. Our first date is “15-01-2018” that we have already assigned to the variable “Date1”. So supply the variable name here.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result =DateDiff("D",Date1, End Sub
Step 8: What is the second date to find the difference. The second date is “15-01-2019,” which holds the value through variable “Date2”.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("D", Date1, Date2) End Sub
Step 9: Ignore the last two parameters. Now assign the value of variable “Result” through the VBA message box.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("D", Date1, Date2) MsgBox Result End Sub
Now run the code using the F5 key or manually, we will get the difference between these two dates in a number of days.
So, from “15-01-2018” to 15-01-2019,” the exact difference is one year, so we got 365 days as a result.
Like this, we can find the difference between two dates in time intervals.
Example #2 - To Find Difference in Months
Code:
Sub DateDiff_Example2() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("M", Date1, Date2) MsgBox Result End Sub
Run this code Using the F5 key, or you can run manually to show the result as given below.
Example #3 - To Find Difference in Years
Code:
Sub DateDiff_Example3() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("YYYY", Date1, Date2) MsgBox Result End Sub
Run this code using the F5 key or manually to see the result.
Assignment as a Practice
I hope you have understood the function of VBA DATEDIFF. Take a look at the below homework for you. Find the difference between the below dates in “Months.”
यदि आपको रास्ता नहीं मिला है, तो नीचे आपके लिए रेडीमेड कोड है।
कोड:
उप असाइनमेंट () डिम k as लॉन्ग फॉर k = २ टू (सेल्स (k, ३) ।Value = DateDiff ("M", सेल्स (k, १), सेल्स (k, २)) अगला k एंड सब
आप इस कोड को मैन्युअल रूप से चला सकते हैं या परिणाम देखने के लिए F5 कुंजी दबा सकते हैं।
