Tính Thuế Thu nhập cá nhân

[truongphu]

Thủ thuật: Tính Thuế Thu nhập cá nhân
Tác giả: vietteiv, truongphu
Mô tả: Tính Thuế Thu nhập cá nhân

---

Syntax: [ Download ] [ Hide ]

Syntax: [ Download ] [ Show ]

Using vb Syntax Highlighting

Function THUETN(ByVal SoTien As Single) As Single 'phai dùng single
If (Not IsNumeric(SoTien)) Or (SoTien <= 0) Then
    THUETN = 0: Exit Function ' code vietteiv
Else
    THUETN = IIf(SoTien > 80000000, SoTien * 35 / 100 - 9850000, _
            IIf(SoTien > 52000000, SoTien * 30 / 100 - 5850000, _
            IIf(SoTien > 32000000, SoTien * 25 / 100 - 3250000, _
            IIf(SoTien > 18000000, SoTien * 20 / 100 - 1650000, _
            IIf(SoTien > 10000000, SoTien * 15 / 100 - 750000, _
            IIf(SoTien > 5000000, SoTien * 10 / 100 - 250000, SoTien * 5 / 100))))))
End If
End Function

Function THUÊTHUNHÂP(ByVal SÔTIÊN As Long) As Long ' # 2,1 ty
If (Not IsNumeric(SÔTIÊN)) Or (SÔTIÊN <= 0) Then  'không tính sô le~
   THUÊTHUNHÂP = 0: Exit Function
Else ' code truongphu
Dim ST As Long: ST = SÔTIÊN / 1000 ' Ðon vi ngàn
   Select Case ST ' chuyên qua Ðon vi ngàn Ðê bo phép chia
       Case Is > 80000: THUÊTHUNHÂP = ST * 350 - 9850000
        Case Is > 52000: THUÊTHUNHÂP = ST * 300 - 5850000
        Case Is > 32000: THUÊTHUNHÂP = ST * 250 - 3250000
        Case Is > 18000: THUÊTHUNHÂP = ST * 200 - 1650000
        Case Is > 10000: THUÊTHUNHÂP = ST * 150 - 750000
        Case Is > 5000: THUÊTHUNHÂP = ST * 100 - 250000
        Case Else: THUÊTHUNHÂP = ST * 50
    End Select
End If
End Function

Private Sub Command1_Click()
MsgBox THUETN(108500000)
MsgBox THUÊTHUNHÂP(108500000)
End Sub
 

Parsed in 0.007 seconds, using GeSHi 1.0.8.4

[hoangdigan]

Bác TruongPhu

"SoTien" này hình như là tổng lương trừ tiền bảo hiểm xã hội, y tế rồi mới đưa vào biến cho hàm đó, phải không bác

HP

[vietteiv]

khí tính thuế thu nhập hay dữ liệu gì liên quan đến cơ quan thuế thì không có khái niệm "hình như" nha bạn. đọc lại các văn bản, thông tư hướng dẫn thực hiện đi

[hoangdigan]

Nếu vậy chương trình còn thiếu phần trừ Bảo hiểm xã hội (6%) và bảo hiểm y tế (1.5%), UI (1%), khấu trừ bản thân (4 triệu), khấu trừ gia cảnh (1,6 triệu/1 người). Nếu tổng lương là 15 triệu thì phải trừ mấy khoản trên thì mới ra đúng kết quả được.

Còn nếu để chương trình chạy đúng thì tổng lương phải trừ các khoản trên sau đó cho vào tham số của hàm
thì kết quả mới cho đúng được, hay nói cách khác code chương trình cho kết quả đúng khi lương là net (Tổng lương - bảo hiểm - khấu trừ bản thân- khấu trừ gia cảnh)

[vietteiv]

đây chỉ là code tham khảo về cách tính thuế thu nhập cá nhân, chuyển thể từ văn bản hướng dẫn thực hiên của thuế --> code. còn việc áp dụng nó như thế nào, tham số đưa vào bao nhiêu là do bạn tự tính toán. chứ đâu phải chương trình hoàn chỉnh để tính lương đâu. ngoài các số phải loại trừ ra như BHXH,BHYT,BHTN như bạn nêu trên, còn phải xem giảm trừ gia cảnh bao nhiêu, phụ cấp trong tháng có hay không, hay có đóng góp gì cho xã hội không nữa (ví dụ: trừ 1 ngày công để góp cho quận huyện ngày vì trẻ thơ --> được trừ ra trước khi tính thuế thu nhập)....