तिथियों की तुलना करें - वीबीए कोड उदाहरण

जांचें कि क्या तिथि तिथियों के बीच में है

निम्नलिखित VBA फ़ंक्शन जाँच करेगा कि क्या दी गई तिथि दो अन्य तिथियों के बीच है और यदि ऐसा है, तो यह मान TRUE लौटाएगा। अगर तारीख तारीखों के बीच में नहीं है, तो यह FALSE मान लौटाएगा।

फ़ंक्शन तुलना_डेट्स (दिनांक के रूप में प्रारंभ_दिनांक, दिनांक के रूप में समाप्ति_दिनांक, तिथि के रूप में अन्य_दिनांक) बूलियन के रूप में ' बूलियन फ़ंक्शन दिनांकों की तुलना करने के लिए 'केवल तभी TRUE लौटाएगा जब Other_Date Start_Date और End_Date के बीच हो 'अन्यथा FALSE लौटाएगा' परिणाम को FALSE पर सेट करें - डिफ़ॉल्ट मान तुलना_डेट्स = गलत 'तिथियों की तुलना करें यदि ((Other_Date>= Start_Date) और (Other_Date <= End_Date)) तो 'यदि अन्य तिथि प्रारंभ और समाप्ति तिथि के बीच है तो सही पर सेट करें Compar_Dates = True End if End Function 

फ़ंक्शन में तीन तर्क हैं:
• प्रारंभ_ तिथि - जल्द से जल्द स्वीकार्य तिथि
• समाप्ति_ तिथि - नवीनतम स्वीकार्य तिथि
• Other_Date - तारीख की तुलना की जा रही है

फ़ंक्शन एक्सेल मॉड्यूल में होना चाहिए। इसे एक्सेल वर्कबुक से चलाया जा सकता है जैसे:

A4 = तुलना_दिनांक(21-06-2003,12-02,2008,15-09-2008)
A3 =तुलना_दिनांक(A1,A2.A3)
A1 = तुलना_दिनांक(13-03-2005,18-08-2005,A6)
तो Compar_Dates(25-04-2007,12-07-2008, 23-06-2006) TRUE मान देगा क्योंकि 23-06-2006 25-04-2007 और 12-07-2008 के बीच है।

इसी तरह Compar_Dates(19-07-2003,12-12-2001,12-08-2008) FALSE लौटाएगा क्योंकि 12-12-2001 19-07-2003 और 12-08-2008 के बीच नहीं है

यहां .XLSM फ़ंक्शन डाउनलोड करें