हम अपने VBA डेटा प्रकार - चर और स्थिरांक ट्यूटोरियल में पहले ही देख चुके हैं कि चर, डेटा प्रकार और स्थिरांक क्या हैं। इस ट्यूटोरियल में, हम एक वैरिएबल को डेट के रूप में घोषित करने का तरीका बताने जा रहे हैं।
VBA में, दिनांक डेटा प्रकार को दशमलव के रूप में संग्रहीत किया जाता है। इस डेटा प्रकार में दिनांक और समय दोनों को संग्रहीत किया जा सकता है। VBA दिनांक डेटा प्रकार 1 जनवरी 100 से 31 दिसंबर 9999 तक के मानों को संग्रहीत कर सकता है।
वीबीए दिनांक चर
आप मंद कीवर्ड का उपयोग करके एक चर को दिनांक के रूप में घोषित करते हैं:
| 1 | मंद तारीखएक तारीख के रूप में |
फिर आप दिनांक चर के लिए एक तिथि निर्दिष्ट कर सकते हैं। चरों को असाइन करने के लिए दिनांक उत्पन्न करने के कई तरीके हैं:
आज वैरिएबल को असाइन करें
दिनांक समारोह आज की तारीख लौटाएगा:
| 123 | मंद दिनांकआजdtToday = दिनांक |
वेरिएबल को अभी असाइन करें
नाओ फंक्शन आज की तारीख और वर्तमान समय लौटाएगा:
| 123 | डिम डी नाउdNow = अब |
चर के लिए समय असाइन करें
समय समारोह वर्तमान समय लौटाएगा:
| 123 | मंद समयसमय = समय |
डेटसेरियल के साथ वैरिएबल को डेट असाइन करें
डेटसेरियल फ़ंक्शन एक इनपुट वर्ष, महीने और दिन के आधार पर एक तारीख लौटाएगा:
| 123 | मंद डी एस दिनांकdsDate = दिनांक सीरियल (२०१०, ११, ११) |
TimeSerial के साथ वैरिएबल को टाइम असाइन करें
TimeSerial फ़ंक्शन एक इनपुट घंटे, मिनट और सेकंड के आधार पर एक समय लौटाएगा:
| 123 | डिम टीएसटाइमtsTime = TimeSerial (१०, १०, ४५) |
आपको अपने कोड में दिनांकों का उपयोग करते समय # या ” के साथ संलग्न करना होगा, जैसा कि नीचे दिखाया गया है:
वीबीए डेटवैल्यू फंक्शन
वीबीए डेटवैल्यू फ़ंक्शन का उपयोग किसी दिनांक को प्रारंभ करने के लिए किया जा सकता है। निम्नलिखित कोड का उपयोग VBA में किसी दिनांक को प्रारंभ करने के लिए किया जा सकता है:
| 1 | MsgBox DateValue("1/1/2010") |
वीबीए टाइमवैल्यू फंक्शन
| 1 | MsgBox TimeValue("21:30:57") |
एक्सेल वीबीए दिनांक चर उदाहरण
यह प्रक्रिया दर्शाती है कि दिनांक चर कैसे बनाएं, उन्हें मान निर्दिष्ट करें, और उन्हें एक्सेल वर्कशीट में आउटपुट करें:
| 12345678910111213 | सब डिक्लेयरिंगAvariableAsADate ()मंद तारीखएक तारीख के रूप मेंमंद तारीखदो तारीख के रूप मेंडेटवन = #1/1/2019#dateTwo = "1/2/2019"रेंज ("ए 1")। वैल्यू = डेटऑनरेंज ("ए 2")। मान = दिनांक दोअंत उप |
परिणाम है:
आप इस ट्यूटोरियल में दिनांक कार्यों के बारे में अधिक जान सकते हैं।
एक्सेस में VBA दिनांक चर
दिनांक चर ठीक उसी तरह काम करता है जैसे एक्सेस वीबीए में एक्सेल वीबीए में होता है।
यह प्रक्रिया दर्शाती है कि दिनांक चर कैसे बनाया जाए और मान के साथ किसी एक्सेस तालिका में फ़ील्ड को अपडेट किया जाए।
| 12345 | सब डिक्लेयरिंगAvariableAsADate ()दिनांक के अनुसार मंद dtWorkडीटीवर्क = #05/10/2020#DoCmd.RunSql "अद्यतन tblJobs SET WorkDate = #" और dtWork & "# WHERE JobNo = 6"अंत उप |
