Hàm tính thuế thu nhập cá nhân 2013 (1 người xem)

Người dùng đang xem chủ đề này

PhanTuHuong

VBA & VB.NET for Excel & AutoCad
Thành viên danh dự
Tham gia
13/6/06
Bài viết
7,248
Được thích
24,807
Chúng ta xây dựng hàm tính thuế thu nhập cá nhân (TNCN) cho năm 2013 trở về sau. Thuế được xác định bằng TNCN trừ các khoản sau:
- Các khoản đóng góp bảo hiểm bắt buộc như: Bảo hiểm xã hội, bảo hiểm y tế, bảo hiểm trách nhiệm nghề nghiệp đối với một số ngành, nghề phải tham gia bảo hiểm bắt buộc và các khoản bảo hiểm bắt buộc khác theo quy định của pháp luật.
- Các khoản giảm trừ gia cảnh (bản thân 9 triệu đồng/tháng, người phụ thuộc 3.6 triệu đồng/người/tháng).
- Các khoản đóng góp vào quỹ từ thiện, quỹ nhân đạo, quỹ khuyến học.
Các bậc tính thuế TNCN lũy tiến như hình ở dưới:



Ví dụ: Bà Nguyễn Hoàng Anh có thu nhập từ tiền lương, tiền công trong tháng là 90 triệu đồng (đã trừ các khoản bảo hiểm bắt buộc), Bà Anh phải nuôi 2 con dưới 18 tuổi. Trong tháng Bà Anh không đóng góp từ thiện, nhân đạo, khuyến học. Thuế thu nhập cá nhân tạm nộp trong tháng của Bà Anh được tính như sau:

Bà Anh được giảm trừ các khoản sau:(từ 1/7/2013)
+ Cho bản thân là: 9 triệu đồng.
+ Cho 2 người phụ thuộc: 3,6 triệu đồng x 2 người =7,2 triệu đồng

- Thu nhập tính thuế thu nhập cá nhân áp vào biểu thuế luỹ tiến từng phần để tính số thuế phải nộp là:
90 triệu đồng – 9 triệu đồng – 7,2 triệu đồng =73,8 triệu đồng
- Số thuế thu nhập cá nhân phải nộp được tính là:
+ Bậc 1: thu nhập tính thuế thu nhập cá nhân (tính thuế TNCN) đến 5 triệu đồng, thuế suất 5%:
5 triệu đồng x 5% = 0,25 triệu đồng
+ Bậc 2: thu nhập tính thuế thu nhập cá nhân (tính thuế TNCN) trên 5 triệu đồng đến 10 triệu đồng, thuế suất 10%:
(10 triệu đồng – 5 triệu đồng) x 10% = 0,5 triệu đồng
+ Bậc 3: thu nhập tính thuế thu nhập cá nhân (tính thuế TNCN) trên 10 triệu đồng đến 18 triệu đồng, thuế suất 15%:
(18 triệu đồng – 10 triệu đồng) x 15% = 1,2 triệu đồng
+ Bậc 4: thu nhập tính thuế thu nhập cá nhân (tính thuế TNCN) trên 18 triệu đồng đến 32 triệu đồng, thuế suất 20%:
(32 triệu đồng – 18 triệu đồng) x 20% = 2,8 triệu đồng
+ Bậc 5: thu nhập tính thuế thu nhập cá nhân (tính thuế TNCN) trên 32 triệu đồng đến 52 triệu đồng, thuế suất 25%:
(52 triệu đồng – 32 triệu đồng) x 25% = 5 triệu đồng
+ Bậc 6: thu nhập tính thuế thu nhập cá nhân (tính thuế TNCN) trên 52 triệu đồng đến 80 triệu đồng, thuế suất 30%:
(73,8 triệu đồng – 52 triệu đồng) x 30% = 6,54 triệu đồng

Như vậy, với mức thu nhập trong tháng là 90 triệu đồng, tổng số thuế thu nhập cá nhân tạm nộp trong tháng của Bà Anh theo biểu thuế luỹ tiến từng phần thuế TNCN là: (0,25 + 0,5 + 1,2 + 2,8 + 5 + 6,54) = 16,29 triệu đồng

(Nguồn: Tổng Cục Thuế)
 
Từ đó tôi xây dựng hàm như sau:

Mã:
Function ThueTNCN(Luong As Double, Optional Socon As Integer) As Double
    Dim GiamTruNuoiCon As Double, MucLuong As Double, ThucLuong As Double
    MucLuong = 9
    GiamTruNuoiCon = 3.6
    ThucLuong = Luong / 10 ^ 6 - MucLuong - Socon * GiamTruNuoiCon
    Select Case ThucLuong
        Case Is <= 0
            ThueTNCN = 0
        Case Is <= 5
            ThueTNCN = ThucLuong * 0.05
        Case Is <= 10
            ThueTNCN = 5 * 0.05 + (ThucLuong - 5) * 0.1
        Case Is <= 18
            ThueTNCN = 5 * 0.05 + 5 * 0.1 + (ThucLuong - 10) * 0.15
        Case Is <= 32
            ThueTNCN = 5 * 0.05 + 5 * 0.1 + 8 * 0.15 + (ThucLuong - 18) * 0.2
        Case Is <= 52
            ThueTNCN = 5 * 0.05 + 5 * 0.1 + 8 * 0.15 + 14 * 0.2 + _
            (ThucLuong - 32) * 0.25
        Case Is <= 80
            ThueTNCN = 5 * 0.05 + 5 * 0.1 + 8 * 0.15 + 14 * 0.2 + _
            20 * 0.25 + (ThucLuong - 52) * 0.3
        Case Else
            ThueTNCN = 5 * 0.05 + 5 * 0.1 + 8 * 0.15 + 14 * 0.2 + _
            20 * 0.25 + 28 * 0.3 + (ThucLuong - 80) * 0.35
    End Select
    ThueTNCN = ThueTNCN * 10 ^ 6
End Function
 

File đính kèm

Bài viết mới nhất

Back
Top Bottom