यह ट्यूटोरियल प्रदर्शित करेगा कि वीबीए में आज की तारीख कैसे प्राप्त करें।
VBA कोड में आज की तारीख प्राप्त करने के कुछ तरीके हैं, अर्थात् VBA का उपयोग करना दिनांक() समारोह या वीबीए अभी() कार्य।
दिनांक () फ़ंक्शन
NS दिनांक() फ़ंक्शन हमें आज की तारीख को एक वेरिएबल में निर्दिष्ट करने में सक्षम बनाता है और फिर आज की तारीख देखने के लिए VBE संपादक में तत्काल विंडो में तारीख प्रदर्शित करता है।
123 | मंद dtआज दिनांक के रूप मेंडीटी टुडे = तिथि ()डिबग.प्रिंट डीटीआज |
वैकल्पिक रूप से, हम एक संदेश बॉक्स में दिनांक प्रदर्शित कर सकते हैं।
12345 | उप परीक्षण दिनांकमंद dtआज दिनांक के रूप मेंडीटी टुडे = तिथि ()Msgbox "आज की तारीख है" & dtTodayअंत उप |
अब () फ़ंक्शन
NS अभी() फ़ंक्शन उसी तरह कार्य करता है जैसे दिनांक फ़ंक्शन, लेकिन इसमें समय शामिल होता है।
12345 | उप टेस्टडेट ()Dim dtToday as dateडीटी टुडे = अब ()MsgBox "आज की तारीख है" और dtTodayअंत उप |
वीबीए के साथ स्वरूपण तिथियां
दोनों में दिनांक() और यह अभी() फ़ंक्शन, दिनांक को हमारे पीसी पर सेटिंग्स द्वारा निर्धारित डिफ़ॉल्ट शैली में स्वरूपित किया जाता है। हम VBA का उपयोग करके इस स्वरूपण को अनुकूलित कर सकते हैं प्रारूप समारोह। जैसा कि प्रारूप फ़ंक्शन एक स्ट्रिंग लौटाएगा, हमें घोषित करने की आवश्यकता है a डोरी चर के बजाय a दिनांक चर।
12345 | उप टेस्टडेट ()मंद डीटीआज स्ट्रिंग के रूप मेंdtToday = फ़ॉर्मेट (दिनांक, "dd mmmm yyyy")MsgBox "आज की तारीख है" और dtTodayअंत उप |
हम प्रारूप भी कर सकते हैं अभी() एक अनुकूलित प्रारूप में समय भाग को शामिल करने के लिए कार्य करता है।
12345 | उप प्रारूप अब ()मंद डीटीआज स्ट्रिंग के रूप मेंdtToday = Format(Now(), "dd mmmm yy hh:mm:ss am/pm")MsgBox डीटीआजअंत उप |
वीबीए के साथ 2 तिथियों की तुलना करना
हम आज की तारीख की तुलना किसी भिन्न तिथि से करने के लिए दिनांक फ़ंक्शन का भी उपयोग कर सकते हैं - हम यह गणना करना चाह सकते हैं कि किसी ईवेंट तक कितने दिन हैं! हम वीबीए का उपयोग करके ऐसा कर सकते हैं डेटडिफ () फ़ंक्शन जो एक नंबर लौटाएगा। इसलिए हम एक घोषित कर सकते हैंपूर्णांक लौटाए गए मान को स्टोर करने के लिए परिवर्तनीय।
123456789 | उप टेस्टडेटडिफ ()Dim dtToday as dateDim dtSomeDay as dateपूर्णांक के रूप में मंद iDaysdtToday = दिनांकडीटीसोमडे = "05/06/2021"iDays = DateDiff ("d", dtToday, dtSomeDay)MsgBox "दो तिथियों के बीच" और iDays और "दिन हैं"अंत उप |
चूंकि तिथियों को संख्याओं के रूप में संग्रहीत किया जाता है, इसलिए हम उसी उत्तर को प्राप्त करने के लिए पहली से दूसरी तारीख को घटा सकते हैं।
1 | iDays = dtToday - dtSomeDay |