/ / Excel VBA'daki Vergi Oranları

Excel VBA'daki Vergi Oranları

Aşağıda bir programa bakacağız Excel VBA Bu vergi gelir üzerinde hesaplar. Devamındaki vergi oranları Avustralya sakinleri için geçerlidir.

Vergiye tabi gelir

Bu gelir vergisi

0 - 6,000 dolar

sıfır

6,001 - 35.000 ABD doları

Her $ 1 için 15c $ 6,000 üzerinde

35.001 - 80.000 ABD Doları

35.000 ABD Dolarının üzerindeki her 1 dolar için 4,350 artı 30 c

80.001 - 180.000 ABD doları

80.000 ABD Dolarının üzerindeki her 1 dolar için 17,850 ABD doları artı 38 c

180,001 dolar ve üstü

180.000 ABD Dolarının üzerindeki her 1 dolar için 55,850 ABD doları artı 45 c


Durum:

Excel VBA'daki Vergi Oranları

1. İlk olarak, iki çift değişkenli beyan ederiz. Bir çifte değişken gelir diyoruz ve bir çifte değişken vergi diyoruz.

Dim income As Double
Dim tax As Double

2. Değişken geliri A2 hücresi değeriyle başlatır ve yuvarlaklaştırırız.

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

3. Yuvarlatılmış değeri tekrar A2 hücresine yerleştiririz.

Range("A2").Value = income

4. Gelir üzerindeki vergiyi hesaplamak için Select Case deyimini kullanırız. Excel VBA, Case ifadesi altındaki kodun yürütülüp yürütülmeyeceğini görmek için sonraki her bir Case deyimini test etmek için gelir kullanır.

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

Örnek: Gelir 37000 ise, vergi 4350 + 0.3 * (37000-35000) = 4350 + 600 = 4950 $ 'dır.

5. Değişken verginin değerini B2 hücresine yazarız.

Range("B2").Value = tax

6. Bu kodu bir komut düğmesine yerleştirin ve test edin.

Sonuç:

Vergi Oranları Sonuç

Ayrıca oku: