वीबीए में वीकडे फ़ंक्शन का उपयोग कैसे करें (उदाहरण के साथ)
आप किसी दी गई तारीख से सप्ताह का दिन (पूर्णांक के रूप में) प्राप्त करने के लिए वीबीए में वीकडे फ़ंक्शन का उपयोग कर सकते हैं।
इस फ़ंक्शन को व्यवहार में उपयोग करने का एक सामान्य तरीका यहां दिया गया है:
Sub FindWeekday()
Dim i As Integer
For i = 2 To 9
Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
Next i
End Sub
यह विशेष मैक्रो A2:A9 श्रेणी में प्रत्येक तिथि के लिए सप्ताह का दिन (पूर्णांक के रूप में) ढूंढेगा और परिणाम B2:B9 श्रेणी में प्रदर्शित करेगा।
ध्यान दें कि निम्नलिखित पूर्णांक सप्ताह के प्रत्येक दिन के अनुरूप हैं:
- 1 : रविवार
- 2 : सोमवार
- 3 : मंगलवार
- 4 : बुधवार
- 5 : गुरुवार
- 6 : शुक्रवार
- 7 : शनिवार
निम्नलिखित उदाहरण दिखाता है कि व्यवहार में वीकडे फ़ंक्शन का उपयोग कैसे करें।
नोट : यदि आप नाम के रूप में सप्ताह का दिन लौटाना पसंद करते हैं, तो आपको इसके बजाय WeekdayName फ़ंक्शन का उपयोग करना चाहिए।
उदाहरण: सप्ताह का दिन ढूंढने के लिए वीबीए में वीकडे फ़ंक्शन का उपयोग करें
मान लीजिए हमारे पास एक्सेल में निम्नलिखित दिनांक कॉलम है:
मान लीजिए कि हम प्रत्येक तिथि के लिए सप्ताह का दिन (पूर्णांक के रूप में) प्राप्त करना चाहते हैं और परिणाम कॉलम बी में प्रदर्शित करना चाहते हैं।
ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:
Sub FindWeekday()
Dim i As Integer
For i = 2 To 9
Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
Next i
End Sub
जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:
कॉलम बी कॉलम ए में प्रत्येक तिथि के लिए सप्ताह का दिन (पूर्णांक के रूप में) प्रदर्शित करता है।
उदाहरण के लिए:
- 1/1/2023 रविवार है, इसलिए कार्यदिवस समारोह 1 लौटाता है।
- 1/4/2023 बुधवार है, इसलिए कार्यदिवस समारोह 4 लौटता है।
- 02/23/2023 गुरुवार है, इसलिए कार्यदिवस समारोह 5 लौटाता है।
और इसी तरह।
नोट : आप वीबीए वीकडे फ़ंक्शन के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।
अतिरिक्त संसाधन
निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:
वीबीए में तारीखों की तुलना कैसे करें
वीबीए में दिनांक को सप्ताह संख्या में कैसे परिवर्तित करें
वीबीए में दो तिथियों के बीच दिनों की गणना कैसे करें