/ / एक्सेल वीबीए तिथि और समय

एक्सेल वीबीए तिथि और समय

वर्ष, महीना, एक तिथि का दिन | DATEADD | वर्तमान तिथि और समय | घंटा, मिनट, दूसरा | समय की कीमत

जानें कि कैसे काम करना है तिथियां और समय में एक्सेल VBA.

अपने वर्कशीट पर एक कमांड बटन रखें और नीचे कोड लाइन जोड़ें। कोड लाइनों को निष्पादित करने के लिए, शीट पर कमांड बटन पर क्लिक करें।

वर्ष, महीना, एक तिथि का दिन

निम्नलिखित मैक्रो को एक तिथि का वर्ष मिलता है। एक तिथि घोषित करने के लिए, मंद कथन का उपयोग करें। दिनांक आरंभ करने के लिए, DateValue फ़ंक्शन का उपयोग करें।

कोड:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

परिणाम:

एक्सेल वीबीए में एक तिथि का वर्ष

नोट: महीने का दिन और दिन प्राप्त करने के लिए महीना और दिन का उपयोग करें।

DATEADD

किसी तारीख को कई दिन जोड़ने के लिए, का उपयोग करेंतिथि जोड़ें समारोह। DateAdd फ़ंक्शन में तीन तर्क हैं। दिनों को जोड़ने के पहले तर्क के लिए "डी" भरें। 3 दिनों के लिए दूसरे तर्क के लिए 3 भरें। तीसरा तर्क उस तारीख का प्रतिनिधित्व करता है जिस दिन दिनों की संख्या जोड़ दी जाएगी।

कोड:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

परिणाम:

DATEADD

ध्यान दें: किसी तारीख को कई महीनों को जोड़ने के लिए "d" से "m" बदलें। अपने कर्सर को Visual Basic Editor में DateAdd पर रखें और अन्य अंतराल विनिर्देशकों पर सहायता के लिए F1 पर क्लिक करें। तारीख अमेरिकी प्रारूप में हैं। महीने पहले, दिन दूसरे। इस प्रकार का प्रारूप आपकी विंडोज़ क्षेत्रीय सेटिंग्स पर निर्भर करता है।

वर्तमान तिथि और समय

वर्तमान दिनांक और समय प्राप्त करने के लिए, अब फ़ंक्शन का उपयोग करें।

कोड:

MsgBox Now

परिणाम:

वर्तमान तिथि और समय

घंटा, मिनट, दूसरा

एक समय का समय प्राप्त करें, घंटे समारोह का उपयोग करें।

कोड:

MsgBox Hour(Now)

परिणाम:

वर्तमान समय का समय

नोट: मिनट और दूसरा समय प्राप्त करने के लिए मिनट और दूसरा का उपयोग करें।

समय की कीमत

TimeValue फ़ंक्शन एक स्ट्रिंग को एक समय धारावाहिक संख्या में परिवर्तित करता है। समय का सीरियल नंबर 0 और 1 के बीच एक संख्या है। उदाहरण के लिए, दोपहर (दिन के माध्यम से आधे रास्ते) को 0.5 के रूप में दर्शाया जाता है।

कोड:

MsgBox TimeValue("9:20:01 am")

परिणाम:

समय की कीमत

अब, स्पष्ट रूप से यह देखने के लिए कि Excel आंतरिक रूप से 0 और 1 के बीच की संख्या को संभालता है, निम्न कोड पंक्तियां जोड़ें:

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

परिणाम:

समय सीरियल नंबर

यह भी पढ़ें: