/ / एक्सेल वीबीए में कर दरें

एक्सेल वीबीए में कर दरें

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA जो आय पर कर की गणना करता है। निम्नलिखित कर की दरें ऑस्ट्रेलिया के निवासी व्यक्तियों पर लागू होते हैं।

कर योग्य आय

इस आय पर कर

0 - $ 6,000

शून्य

$ 6,001 - $ 35,000

प्रत्येक $ 1 $ 6,000 से अधिक के लिए 15 सी

$ 35,001 - $ 80,000

प्रत्येक $ 1 $ 35,000 से अधिक $ 4,350 प्लस 30 सी

$ 80,001 - $ 180,000

प्रत्येक $ 1 $ 80,000 से $ 1,850 प्लस 38 सी

$ 180,001 और उससे अधिक

प्रत्येक $ 1 $ 180,000 से अधिक $ 55,850 प्लस 45 सी


परिस्थिति:

एक्सेल वीबीए में कर दरें

1. सबसे पहले, हम दो डबल चर घोषित करते हैं। एक डबल वेरिएबल जिसे हम आय कहते हैं, और एक डबल वेरिएबल जिसे हम कर कहते हैं।

Dim income As Double
Dim tax As Double

2. हम सेल ए 2 के मूल्य के साथ परिवर्तनीय आय शुरू करते हैं और इसे गोल करते हैं।

income = Round(Range("A2").Value)

3. हम गोलाकार मान फिर से सेल ए 2 में डालते हैं।

Range("A2").Value = income

4. हम आय पर कर की गणना करने के लिए चयन केस स्टेटमेंट का उपयोग करते हैं। एक्सेल वीबीए प्रत्येक आगामी केस स्टेटमेंट का परीक्षण करने के लिए आय का उपयोग करता है यह देखने के लिए कि केस स्टेटमेंट के तहत कोड निष्पादित किया जाना चाहिए या नहीं।

Select Case income
    Case Is >= 180001
        tax = 55850 + 0.45 * (income - 180000)
    Case Is >= 80001
        tax = 17850 + 0.38 * (income - 80000)
    Case Is >= 35001
        tax = 4350 + 0.3 * (income - 35000)
    Case Is >= 6001
        tax = 0.15 * (income - 6000)
    Case Else
        tax = 0
End Select

उदाहरण: यदि आय 37000 है, कर 4350 + 0.3 * (37000-35000) = 4350 + 600 = $ 4950 के बराबर है

5. हम सेल बी 2 पर परिवर्तनीय कर का मूल्य लिखते हैं।

Range("B2").Value = tax

6. इस कोड को कमांड बटन में रखें और इसका परीक्षण करें।

परिणाम:

कर दरें परिणाम

यह भी पढ़ें: