Thuế suất trong Excel VBA
Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA tính thuế trên thu nhập. Các mức thuế sau đây áp dụng cho những cá nhân là cư dân của Úc.
Taxable income | Tax on this income |
---|---|
0 – $6,000 |
Nil |
$6,001 – $35,000 |
15c for each $1 over $6,000 |
$35,001 – $80,000 |
$4,350 plus 30c for each $1 over $35,000 |
$80,001 – $180,000 |
$17,850 plus 38c for each $1 over $80,000 |
$180,001 and over |
$55,850 plus 45c for each $1 over $180,000 |
Tình huống:
-
Đầu tiên, chúng ta khai báo hai biến kép. Một biến kép chúng tôi gọi là thu nhập và một biến kép chúng tôi gọi là thuế.
Dim income As Double Dim tax As Double
-
Chúng tôi khởi tạo biến thu nhập với giá trị của ô A2 và làm tròn nó.
income = Round(Range("A2").Value)
-
Chúng ta lại đặt giá trị làm tròn vào ô A2.
Range("A2").Value = income
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
Ví dụ: nếu thu nhập là 37000, thuế bằng 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $ 5. Chúng ta ghi giá trị của thuế biến đổi vào ô B2.
Range("B2").Value = tax
-
Đặt mã này vào một nút lệnh và kiểm tra nó.
Kết quả: