Cong thuc tinh thue thu nhap ca nhan

Trạng thái
Không mở trả lời sau này.

thutran

Member
Hội viên mới
Cac ban giup chi cho minh cong thuc tinh thue TNCN cua nguoi Viet Nam, tu luong Gross tinh ra luong Net va tu luong Net tinh nguoc len luong Gross duoc khong a.
Cam on cac ban nhieu.
Kim Thu
 
Kim Thu lần sau nhớ viết bài có dấu nhé, bạn có thể download add-in về tính thuế tncn hay tính từ lương net thành gross và ngược lại ở thư viện

http://www.danketoan.com/dl_engine/comment.php?dlid=81&ENGINEsessID=d5fcf70d510442edd27b3c1c6a736ec9

Nếu bạn hiểu về VBA bạn có thể đọc đoạn code sau

Mã:
Function pitlc(gross_local)
'Personal Income Tax for Local Vietnamese Citizen
If (gross_local > 0) And (gross_local <= 5000000) Then
pitlc = 0
ElseIf (gross_local > 5000000) And (gross_local <= 15000000) Then
pitlc = (gross_local - 5000000) * 0.1
ElseIf (gross_local > 15000000) And (gross_local <= 25000000) Then
pitlc = 1000000 + ((gross_local - 15000000) * 0.2)
ElseIf (gross_local > 25000000) And (gross_local <= 40000000) Then
pitlc = 3000000 + ((gross_local - 25000000) * 0.3)
ElseIf (gross_local > 40000000) Then
pitlc = 7500000 + ((gross_local - 40000000) * 0.4)
End If
End Function


Mã:
Function pitfr(gross_foreign)
'Personal Income Tax for Resident Foreigner in Vietnamese
If (gross_foreign > 0) And (gross_foreign <= 8000000) Then
pitfr = 0
ElseIf (gross_foreign > 8000000) And (gross_foreign <= 20000000) Then
pitfr = (gross_foreign - 8000000) * 0.1
ElseIf (gross_foreign > 20000000) And (gross_foreign <= 50000000) Then
pitfr = 1200000 + ((gross_foreign - 20000000) * 0.2)
ElseIf (gross_foreign > 50000000) And (gross_foreign <= 80000000) Then
pitfr = 7200000 + ((gross_foreign - 50000000) * 0.3)
ElseIf (gross_foreign > 80000000) Then
pitfr = 16200000 + ((gross_foreign - 80000000) * 0.4)
End If
End Function
 
Chuyển từ net- gross

Mã:
Function net2grosslc(net_local)
'Local Net Salary to be gross-up to Gross Salary
If (net_local > 0) And (net_local <= 5000000) Then
net2grosslc = net_local
ElseIf (net_local > 5000000) And (net_local <= 14000000) Then
net2grosslc = Round((net_local - 500000) / 0.9, 0)
ElseIf (net_local > 14000000) And (net_local <= 22000000) Then
net2grosslc = Round((net_local - 2000000) / 0.8, 0)
ElseIf (net_local > 22000000) And (net_local <= 32500000) Then
net2grosslc = Round((net_local - 4500000) / 0.7, 0)
ElseIf (net_local > 32500000) Then
net2grosslc = Round((net_local - 8500000) / 0.6, 0)
End If
End Function

Mã:
Function net2grossfr(net_foreign)
'Foreigner Net Salary to be gross-up to Gross Salary
If (net_foreign > 0) And (net_foreign <= 8000000) Then
net2grossfr = net_foreign
ElseIf (net_foreign > 8000000) And (net_foreign <= 18800000) Then
net2grossfr = Round((net_foreign - 800000) / 0.9, 0)
ElseIf (net_foreign > 18800000) And (net_foreign <= 42800000) Then
net2grossfr = Round((net_foreign - 2800000) / 0.8, 0)
ElseIf (net_foreign > 42800000) And (net_foreign <= 63800000) Then
net2grossfr = Round((net_foreign - 7800000) / 0.7, 0)
ElseIf (net_foreign > 63800000) Then
net2grossfr = Round((net_foreign - 15800000) / 0.6, 0)
End If
End Function


Chúc bạn thành công nhé
 
Trạng thái
Không mở trả lời sau này.

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top