एक्सेल VBA डेट फ़ंक्शन
VBA दिनांक एक दिनांक और समय फ़ंक्शन है, यह आपके द्वारा उपयोग किए जा रहे सिस्टम दिनांक के अनुसार केवल वर्तमान दिनांक देता है, यह भी ध्यान रखना महत्वपूर्ण है कि इस फ़ंक्शन का इसमें कोई तर्क नहीं है, जो भी याद रखने के लिए एक और महत्वपूर्ण कारक यह है कि यह फ़ंक्शन वर्तमान सिस्टम दिनांक लौटाता है।
एक्सेल में, हम कुछ कार्यों के बिना नहीं रह सकते हैं, और "VBA दिनांक" उन कार्यों में से एक है। यदि आप किसी एक्सेल वर्कशीट के लगातार उपयोगकर्ता हैं, तो आपको "TODAY ()" नामक एक फ़ंक्शन के बारे में पता होना चाहिए , जो सिस्टम दिनांक के अनुसार वर्तमान दिनांक को वापस कर देगा।
दिनांक एक बहुत ही सरल कार्य है, और यह आपके द्वारा उपयोग किए जा रहे सिस्टम दिनांक के अनुसार केवल वर्तमान दिनांक देता है। यह हमारे वर्कशीट फंक्शन “TODAY” के समान ही काम करता है लेकिन प्रकृति में अस्थिर नहीं है।
एक्सेल डेट फ़ंक्शन का सिंटैक्स बहुत सरल है क्योंकि इसमें आपूर्ति करने का कोई तर्क नहीं है और इसमें केवल खाली कोष्ठक शामिल हैं।
तारीख ()
जब आप फ़ंक्शन का उपयोग करते हैं, तो कोष्ठक में प्रवेश करने की कोई आवश्यकता नहीं है, तो कोष्ठक केवल फ़ंक्शन को समझाने के लिए हैं।
Excel VBA दिनांक फ़ंक्शन का उपयोग कैसे करें?
उदाहरण 1
मान लें कि आप सेल A1 में वर्तमान दिनांक सम्मिलित करना चाहते हैं, तो सेल A1 में वर्तमान दिनांक सम्मिलित करने के लिए कोड लिखने के लिए नीचे दिए गए चरणों का पालन करें।
चरण 1: एक मैक्रो नाम बनाएँ।
कोड:
उप दिनांक_Example1 ()
चरण 2: चूँकि हमें सेल A1 में वर्तमान तिथि को स्टोर करने की आवश्यकता है, हमारा कोड रेंज (“A1”) होगा ।
कोड:
उप दिनांक_Example1 () रेंज ("A1")। मान अंत उप
चरण 3: सेल A1 में हमें वर्तमान तिथि की आवश्यकता है, इसलिए DATE फ़ंक्शन का उपयोग करें।
कोड:
उप दिनांक_Example1 () रेंज ("A1")। मान = दिनांक समाप्ति उप
चरण 4: ठीक है, हम कर रहे हैं। चलिए अब इस कोड को F5 कुंजी दबाकर चलाते हैं, या आप कोड को मैन्युअल रूप से भी चला सकते हैं, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। हम सेल A1 में वर्तमान तिथि प्राप्त करेंगे।
तो, जब मैं अपने सिस्टम में इस कोड को आज की तारीख लिख रहा हूँ "15 है वीं मार्च 2019"।
नोट: आपकी तिथि का प्रारूप आपकी विंडोज़ सेटिंग पर निर्भर करता है। वैसे भी, आप प्रारूप कक्षों के अंतर्गत दिनांक का प्रारूप बदल सकते हैं।
उदाहरण # 2
मान लें कि आप एक एलआईसी एजेंट हैं, और आपके पास सौदा करने के लिए कई ग्राहक हैं। मुख्य वस्तुओं में से एक यह जानना है कि किसका भुगतान आज के दिन है ताकि आप उन्हें कॉल कर सकें और भुगतान तुरंत एकत्र कर सकें।
नीचे मान लें कि आपके डेटाबेस में आपके पास मौजूद ग्राहकों की सूची है।
मैंने पहले ही एक कोड लिखा है जो एक्सेल फाइल खोलते ही आपको सूचित कर देगा।
कोड:
उप देयकर्ता () डिम डिलेटेट दिनांक के रूप में डिम डिलेटेड के रूप में लंबे समय से डिलेटेट = दिनांक i = 2 के लिए i = 2 के लिए सेल (पंक्तियाँ, 1)। और (xlUp) .Row यदि दिनांकित = डेटसियर (दिनांक), महीना (महीना) कक्ष (i, 3) .Value), दिन (कक्ष (i, 3) .Value)) तब MsgBox "ग्राहक का नाम:" और कक्ष (i, 1) .Value और vbNewLine और "प्रीमियम राशि:" और कक्ष (i) , 2) .अगला अंत यदि अगला मैं अंत उप
उपरोक्त कोड को कॉपी करें और इसे VBA मॉड्यूल में पेस्ट करें।
अब “दिस वर्कबुक” विकल्प पर डबल क्लिक करें।
अब उपरोक्त ड्रॉपडाउन से "वर्कबुक" चुनें ।
जैसे ही आप विकल्प "वर्कबुक" चुनते हैं, आप देख सकते हैं कि एक निजी मैक्रो अपने आप खुल जाता है।
यहाँ मैक्रो नाम "Workbook_Open ()" का अर्थ है जब भी यह कार्यपुस्तिका खुलती है तो आपको क्या करना है। जब भी यह कार्यपुस्तिका खुलती है, हमें हमारे द्वारा बनाए गए मैक्रो को चलाने की आवश्यकता होती है।
इसलिए, यहां हमें अपने मैक्रो को कॉल करना होगा जिसे हमने उसके नाम से बनाया है। उपरोक्त कोड में, हमारा मैक्रो नाम "ड्यूडायनाईफायर" है।
कोड:
कॉल करें
अब इस कार्यपुस्तिका को सहेजें और इसे बंद करें।
इसे बंद करने के बाद, कार्यपुस्तिका खोलें और जादू देखें।
अब मैं खोलूंगा…।
वाह क्या बात है!!! यह मुझे वर्तमान तिथि के लिए ग्राहक का नाम और उनकी देय राशि दिखाता है।
ग्राहक का नाम "अमर" है, और देय राशि "20883" है। कारण है कि यह इस ग्राहक का नाम दिखाया जा रहा है क्योंकि श्री अमर के लिए नियत तारीख 15 है वीं मार्च 2019, यानी, आज।
अब Ok पर क्लिक करें, यह अन्य ग्राहक नामों को दिखाएगा यदि नियत तारीख आज को है।
यह श्री अरविंद का नाम दिखा रहा है; उसकी नियत तारीख पर 15 भी है वें मार्च 2019।
अब, आप कार्यालय में आते ही आसानी से ग्राहक के नामों की पहचान कर सकते हैं। एक बड़ा सिरदर्द दूर हो गया है।
Similarly, I have created one more excel macro, which will send auto birthday emails from your outlook.
Example #3
Assume you are in an “Employee Engagement Team,” and you are responsible for sending birthday emails to your employees. Identify and sending the email to each, and every one separately is a painful job.
Hello, my dear friend, doesn’t worry, I have created a macro for you to send the auto birthday emails to your employees.
I have created some data to test, and below is the image of the same.
You just need to update the employee master according to the headings of the table. Below is the code to send the emails.
Copy the below code and paste it in the module.
Sub Birthday_Wishes() Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Dim Mydate As Date Dim i As Long Set OutlookApp = New Outlook.Application Mydate = Date i = 2 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Set OutlookMail = OutlookApp.CreateItem(olMailItem) If Mydate = DateSerial(Year(Date), Month(Cells(i, 5).Value), Day(Cells(i, 5).Value)) Then OutlookMail.To = Cells(i, 7).Value OutlookMail.CC = Cells(i, 8).Value OutlookMail.BCC = "" OutlookMail.Subject = "Happy Birthday - " & Cells(i, 2).Value OutlookMail.Body = "Dear " & Cells(i, 2).Value & "," & vbNewLine & vbNewLine & _ "We wish you a happy birhday on behalf of the management and we wish all the success in the coming future" & vbNewLine & _ vbNewLine & "Regards," & vbNewLine & "StrIDE Team" OutlookMail.Display OutlookMail.Send End If Next i End Sub
जैसे ही आप कार्यालय में आते हैं, बस फ़ाइल खोलें और इस कोड को चलाएं, यह स्वचालित रूप से संबंधित ईमेल आईडी के लिए जन्मदिन की शुभकामनाएं भेजेगा।
नोट: आपके पास आपके सिस्टम में Outlook कॉन्फ़िगर होना चाहिए।
