वीबीए में नेटवर्कडेज़ का उपयोग कैसे करें (उदाहरण के साथ)
विशिष्ट प्रारंभ और समाप्ति तिथियों के बीच संपूर्ण व्यावसायिक दिनों की संख्या ज्ञात करने के लिए आप VBA में नेटवर्कडेज़ पद्धति का उपयोग कर सकते हैं।
ध्यान दें कि व्यावसायिक दिनों में सप्ताहांत और छुट्टियां शामिल नहीं हैं।
व्यवहार में इस पद्धति का उपयोग करने का एक सामान्य तरीका यहां दिया गया है:
Sub CalculateNetworkDays()
Dim i As Integer
For i = 2 To 9
Range("C" & i) = WorksheetFunction.NetworkDays(Range("A" & i), Range("B" & i))
Next i
End Sub
यह विशेष उदाहरण श्रेणी A2:A9 में प्रारंभ तिथियों और श्रेणी B2:B9 में समाप्ति तिथियों के बीच व्यावसायिक दिनों की संख्या की गणना करता है और परिणाम C2:C9 श्रेणी में प्रदर्शित करता है।
निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।
उदाहरण: वीबीए में नेटवर्कडेज़ का उपयोग कैसे करें
मान लीजिए कि हमारे पास एक्सेल में आरंभ और समाप्ति तिथियों की निम्नलिखित सूची है:
मान लीजिए कि हम प्रत्येक पंक्ति की शुरुआत और समाप्ति तिथियों के बीच पूरे व्यावसायिक दिनों की संख्या की गणना करने के लिए वीबीए में नेटवर्कडेज़ विधि का उपयोग करना चाहते हैं।
ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:
Sub CalculateNetworkDays()
Dim i As Integer
For i = 2 To 9
Range("C" & i) = WorksheetFunction.NetworkDays(Range("A" & i), Range("B" & i))
Next i
End Sub
जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:
कॉलम सी प्रत्येक पंक्ति में प्रारंभ और समाप्ति तिथियों के बीच पूर्ण व्यावसायिक दिनों की संख्या दिखाता है।
उदाहरण के लिए:
- 1/2/2023 और 1/3/2023 के बीच कार्य दिवसों की संख्या 2 है। (चूँकि ये दोनों तारीखें सप्ताहांत पर हैं)।
- 1/5/2023 से 1/8/2023 के बीच कार्य दिवसों की संख्या 2 है।
- 01/10/2023 से 01/20/2023 के बीच कार्य दिवसों की संख्या 9 है।
और इसी तरह।
ध्यान दें : आप VBA में NetworkDays पद्धति का पूरा दस्तावेज़ यहां पा सकते हैं।
अतिरिक्त संसाधन
निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:
वीबीए: तारीख से महीने का नाम कैसे प्राप्त करें
वीबीए: सेल एक तारीख है या नहीं यह जांचने के लिए IsDate का उपयोग कैसे करें
वीबीए: दिनांक प्रारूप के रूप में mm/dd/yyyy का उपयोग कैसे करें