Backy1990
Thành viên mới

- Tham gia
- 25/6/11
- Bài viết
- 27
- Được thích
- 2
- Nghề nghiệp
- Kế toán
Function ThueTNCN(ThuNhap As Double, Optional PhuThuoc As Byte = 0) As Double
ThuNhap = Round(ThuNhap, 0)
ThuNhap = ThuNhap - 9000000 - PhuThuoc * 3200000
Select Case ThuNhap
Case 1 To 5000000: ThueTNCN = ThuNhap * 0.05
Case 5000001 To 10000000: ThueTNCN = ThuNhap * 0.1 - 250000
Case 10000001 To 18000000: ThueTNCN = ThuNhap * 0.15 - 750000
Case 18000001 To 32000000: ThueTNCN = ThuNhap * 0.2 - 1650000
Case 32000001 To 52000000: ThueTNCN = ThuNhap * 0.25 - 3250000
Case 52000001 To 80000000: ThueTNCN = ThuNhap * 0.3 - 5850000
Case Is > 80000000: ThueTNCN = ThuNhap * 0.35 - 9850000
End Select
End Function
ThuNhap = Round(ThuNhap, 0)
ThuNhap = ThuNhap - 9000000 - PhuThuoc * 3200000
Select Case ThuNhap
Case 1 To 5000000: ThueTNCN = ThuNhap * 0.05
Case 5000001 To 10000000: ThueTNCN = ThuNhap * 0.1 - 250000
Case 10000001 To 18000000: ThueTNCN = ThuNhap * 0.15 - 750000
Case 18000001 To 32000000: ThueTNCN = ThuNhap * 0.2 - 1650000
Case 32000001 To 52000000: ThueTNCN = ThuNhap * 0.25 - 3250000
Case 52000001 To 80000000: ThueTNCN = ThuNhap * 0.3 - 5850000
Case Is > 80000000: ThueTNCN = ThuNhap * 0.35 - 9850000
End Select
End Function