LongGSM
Thành viên mới
- Tham gia
- 19/5/08
- Bài viết
- 17
- Được thích
- 4
- Nghề nghiệp
- Thương Mại Điện Tử
PHP:
Function pit(tn)
'Cong thuc tinh thue TNCN do D.H. Trung phat trien'
'Tinh thue TNCN sau khi da giam tru gia canh va phu thuoc'
If (tn > 0) And (tn <= 5000000) Then
pit = Round(tn * 0.05, 0)
ElseIf (tn > 5000000) And (tn <= 10000000) Then
pit = 250000 + Round((tn - 5000000) * 0.1, 0)
ElseIf (tn > 10000000) And (tn <= 18000000) Then
pit = 750000 + Round(((tn - 10000000) * 0.15), 0)
ElseIf (tn > 18000000) And (tn <= 32000000) Then
pit = 1950000 + Round(((tn - 18000000) * 0.2), 0)
ElseIf (tn > 32000000) And (tn <= 52000000) Then
pit = 4750000 + Round(((tn - 32000000) * 0.25), 0)
ElseIf (tn > 52000000) And (tn <= 80000000) Then
pit = 9750000 + Round(((tn - 52000000) * 0.3), 0)
ElseIf (tn > 80000000) Then
pit = 18150000 + Round(((tn - 80000000) * 0.35), 0)
End If
End Function
Function pitpt(income, pt)
'Tinh thue TNCN truoc khi giam tru gia canh va phu thuoc'
tnct = income - 4000000 - pt * 1600000
If (tnct <= 0) Then
pitpt = 0
End If
If (tnct > 0) And (tnct <= 5000000) Then
pitpt = Round(tnct * 0.05, 0)
ElseIf (tnct > 5000000) And (tnct <= 10000000) Then
pitpt = 250000 + Round((tnct - 5000000) * 0.1, 0)
ElseIf (tnct > 10000000) And (tnct <= 18000000) Then
pitpt = 750000 + Round(((tnct - 10000000) * 0.15), 0)
ElseIf (tnct > 18000000) And (tnct <= 32000000) Then
pitpt = 1950000 + Round(((tnct - 18000000) * 0.2), 0)
ElseIf (tnct > 32000000) And (tnct <= 52000000) Then
pitpt = 4750000 + Round(((tnct - 32000000) * 0.25), 0)
ElseIf (tnct > 52000000) And (tnct <= 80000000) Then
pitpt = 9750000 + Round(((tnct - 52000000) * 0.3), 0)
ElseIf (tnct > 80000000) Then
pitpt = 18150000 + Round(((tnct - 80000000) * 0.35), 0)
End If
End Function
Function net2gr(net)
'Quy doi tu thu nhap sau thue ra thu nhap truoc thue'
If (net > 0) And (net <= 4750000) Then
net2gr = Round(net / 0.95, 0)
ElseIf (net > 4750000) And (net <= 9250000) Then
net2gr = Round((net - 250000) / 0.9, 0)
ElseIf (net > 9250000) And (net <= 16050000) Then
net2gr = Round((net - 750000) / 0.85, 0)
ElseIf (net > 16050000) And (net <= 27250000) Then
net2gr = Round((net - 1650000) / 0.8, 0)
ElseIf (net > 27250000) And (net <= 42250000) Then
net2gr = Round((net - 3250000) / 0.75, 0)
ElseIf (net > 42250000) And (net <= 61850000) Then
net2gr = Round((net - 5850000) / 0.7, 0)
ElseIf (net > 61850000) Then
net2gr = Round((net - 9850000) / 0.65, 0)
End If
End Function
Bạn nào có nội dung lý thuyết chi tiết để tạo được các hàm kia thì chia sẻ cho mình với nhé.
Vì mình có khóa dạy excel tại cty và muốn làm một đề thi về hàm tính thuế nên muốn tìm nội dung để khi học viên đọc nội dung đó có thể tự viết hàm tính thuế trên.
Cảm ơn các chuyên gia của GPE!
From Sa_DQ:
Ba hàm trên có thể viết gọn lại để bớt những số 0 hù trẻ nhỏ đi được đó; Bạn nào thử xem sao
Chỉnh sửa lần cuối bởi điều hành viên: