एक्सेल VBA INT (पूर्णांक) समारोह
VBA INT एक इनबिल्ट फंक्शन है जो हमें केवल एक नंबर का पूर्णांक भाग देने के लिए उपयोग किया जाता है, जो हमें एक इनपुट प्रदान करता है, इस फ़ंक्शन का उपयोग उन डेटा में किया जाता है, जिनका दशमलव भाग डेटा को प्रभावित करने के लिए गणना या विश्लेषण का उपयोग करने के लिए इतना अधिक प्रभावित नहीं करता है। INT केवल पूर्णांक मान प्राप्त करने के लिए कार्य करता है।
यह फ़ंक्शन वर्कशीट के साथ-साथ VBA में भी उपलब्ध है। पूर्णांक फ़ंक्शन निकटतम पूर्णांक संख्या के नीचे एक विशिष्ट संख्या को गोल करता है।
VBA Int फ़ंक्शन का उपयोग उप प्रक्रिया और कार्य प्रक्रिया में किया जा सकता है। अब VBA में INT फ़ंक्शन के सिंटैक्स पर एक नज़र डालें।
इसकी आपूर्ति करने का केवल एक तर्क है अर्थात नंबर।
- संख्या वह संख्या है जिसे हम INTEGER संख्या में बदलने की कोशिश कर रहे हैं। जब संख्या की आपूर्ति की जाती है, तो INT फ़ंक्शन इसे निकटतम पूर्णांक तक गोल करता है।
उदाहरण के लिए, यदि आपूर्ति की गई संख्या 68.54 है, तो Excel VBA Int फ़ंक्शन 68 से नीचे हो जाता है, जो कि शून्य की ओर है। यदि आपूर्ति संख्या -68.54 है, तो INT फ़ंक्शन ने संख्या को 69 पर गोल किया, जो शून्य से दूर है।
VBA INT फ़ंक्शन का उपयोग कैसे करें?
उदाहरण 1
अब, VBA में "INT" फ़ंक्शन के सरल उदाहरण को देखें। चलो पास पूर्णांक संख्या के लिए 84.55 की संख्या को गोल करने का कार्य करते हैं।
चरण 1: उपप्रकार शुरू करें।
चरण 2: चर को पूर्णांक के रूप में घोषित करें ।
कोड:
सब INT_Example1 () डिम के अस इंटेगर एंड सब
चरण 3: अब INT फ़ंक्शन लागू करके चर " k " के सूत्र को असाइन करें ।
कोड:
उप INT_Example1 () डिम के अस इंटेगर के = इंट (अंत उप
चरण 4: संख्या को 84.55 के रूप में आपूर्ति करें ।
नोट: चूंकि यह एक संख्यात्मक संख्या है, इसलिए हमें दोहरे उद्धरण चिह्नों की आपूर्ति नहीं करनी चाहिए।
कोड:
उप INT_Example1 () डिम के अस इंटेगर के = इंट (84.55) एंड सब
चरण 5: अब VBA संदेश बॉक्स में चर का परिणाम पारित करना।
कोड:
उप INT_Example1 () डिम K अस इंटेगर K = Int (84.55) MsgBox K End Sub
ठीक है, चलो कोड चलाते हैं और देखते हैं कि क्या होता है।
तो, परिणाम 84 है, और यह निकटतम पूर्णांक मान तक गोल है।
उदाहरण # 2
अब नकारात्मक चिह्न के साथ समान संख्या के साथ, हम निकटतम पूर्णांक मान में बदलने का प्रयास करेंगे। नीचे एक नकारात्मक चिह्न वाला कोड है।
कोड:
सब INT_Example2 () डिम k अस इंटेगर k = Int (-84.55) 'INT फ़ंक्शन के साथ ऋणात्मक संख्या MsgBox k End Sub
जब मैंने इस कोड को चलाया, तो यह संख्या -85 तक पहुंच गया ।
उदाहरण # 3 - तिथि और समय से तारीख अंश निकालें
अपने करियर में कुछ समय, मैंने तारीख और समय के संयोजन से अलग तारीख और समय निकालने के परिदृश्य का सामना किया है।
उदाहरण के लिए, दिनांक और समय के निम्न डेटा को देखें।
आप दिनांक अंश और समय कैसे निकालते हैं?
सबसे पहले, हमें दिनांक भाग निकालने की आवश्यकता है। इसके लिए, आइए INT फ़ंक्शन लागू करें। नीचे दिया गया कोड उपरोक्त डेटा से DATE के हिस्से को निकाल देगा।
कोड:
Sub INT_Example2 () Dim k As Integer For k = 2 To 12 Cells (k, 2) .Value = Int (Cells (k, 1) .Value) 'यह दूसरे कॉलम सेल्स (k, 3) को तारीख निकालेगा। मान = सेल (k, 1)। वाल्यू - सेल्स (k, 2)। वैल्यू 'यह तीसरे कॉलम के लिए समय निकालेगा। Next k End Sub
इस कोड को चलाएं। आपको नीचे जैसा परिणाम मिल सकता है (यदि स्वरूपण लागू नहीं है)।
दिनांक स्तंभ में, प्रारूपण को "DD-MMM-YYYY" के रूप में लागू करें और समय स्तंभ के लिए, दिनांक प्रारूप को "HH: MM: SS AM / PM" के रूप में लागू करें
