Cuối năm là thời điểm cần quyết toán thuế thu nhập cá nhân. Đây là vấn đề không "nhẹ nhàng" chút nào, nhất là khi qui mô công ty của bạn không nhỏ. Tuy nhiên bạn đừng lo, bạn có thể lập trình "bắt" Excel xử lý giúp "gánh nặng" này.
Công việc chuẩn bị
- PC cài HĐH Windows 2000 hoặc XP, Microsoft Excel XP hoặc 2003
- Phụ lục số 1 và số 2, kèm theo Thông tư số 81/2004/ TT-BTC ngày 13/8/2004 của Bộ Tài chính.
- Lên kế hoạch tạo các hàm sau:
• PITLC: Hàm tính thuế thu nhập cá nhân dành cho công dân Việt Nam và các cá nhân khác định cư tại Việt Nam.
• PITFR: Hàm tính thuế thu nhập cá nhân người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài.
• NET2GROSSLC: Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) dành cho công dân Việt Nam và các cá nhân khác định cư tại Việt Nam.
• NET2GROSSFR: Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) dành cho người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài.
Lưu ý: Tên hàm có thể thay đổi cho phù hợp với yêu cầu của bạn.
TẠO HÀM
1. Mở bảng tính (workbook) mới
2. Nhấn tổ hợp phím Alt+F11 để khởi động microsoft Visual Basic
3. Nhấn vào bảng tính của bạn tại cửa sổ VBA project. Ví dụ: VBA project (book1)
4. Chọn Insert.Module
5. Nhấn đúp vào module mới tạo ra và nhập vào các đoạn mã sau.
1/ Hàm tính thuế thu nhập cá nhân dành cho công dân Việt Nam và các cá nhân khác định cư tại Việt Nam.
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
handung107
Xem hồ sơ
Gởi nhắn tin tới handung107
Gửi email đến handung107
Tìm bài gởi bởi handung107
Thêm handung107 vào Sổ Bạn Bè
Có 8 thành viên cảm ơn handung107 về bài viết này:
babakhuong, dkdkhk10, giuncon, hanh7a, Lado, stock, Thuyan.acc, tiendungwaco
#2 08-06-06, 01:50 PM
handung107
6th Excel Member
Tham gia ngày: 05 2006
Nơi Cư Ngụ: TP HCM
Bài gởi: 1,071
Tổng số lần cảm ơn: 358
Được cảm ơn 3,313 lần trong 695 bài viết
Bài của Datvuong
--------------------------------------------------------------------------------
2/ Hàm tính thuế thu nhập cá nhân người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài.
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
handung107
Xem hồ sơ
Gởi nhắn tin tới handung107
Gửi email đến handung107
Tìm bài gởi bởi handung107
Thêm handung107 vào Sổ Bạn Bè
Có 4 thành viên cảm ơn handung107 về bài viết này:
hanh7a, Lado, Thuyan.acc, tiendungwaco
#3 08-06-06, 01:52 PM
handung107
6th Excel Member
Tham gia ngày: 05 2006
Nơi Cư Ngụ: TP HCM
Bài gởi: 1,071
Tổng số lần cảm ơn: 358
Được cảm ơn 3,313 lần trong 695 bài viết
Bài của Datvuong
--------------------------------------------------------------------------------
3/ Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) dành cho công dân Việt Nam và các cá nhân khác định cư tại Việt Nam.
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
(Minh copy lai đó. hi hi hi hi
Công việc chuẩn bị
- PC cài HĐH Windows 2000 hoặc XP, Microsoft Excel XP hoặc 2003
- Phụ lục số 1 và số 2, kèm theo Thông tư số 81/2004/ TT-BTC ngày 13/8/2004 của Bộ Tài chính.
- Lên kế hoạch tạo các hàm sau:
• PITLC: Hàm tính thuế thu nhập cá nhân dành cho công dân Việt Nam và các cá nhân khác định cư tại Việt Nam.
• PITFR: Hàm tính thuế thu nhập cá nhân người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài.
• NET2GROSSLC: Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) dành cho công dân Việt Nam và các cá nhân khác định cư tại Việt Nam.
• NET2GROSSFR: Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) dành cho người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài.
Lưu ý: Tên hàm có thể thay đổi cho phù hợp với yêu cầu của bạn.
TẠO HÀM
1. Mở bảng tính (workbook) mới
2. Nhấn tổ hợp phím Alt+F11 để khởi động microsoft Visual Basic
3. Nhấn vào bảng tính của bạn tại cửa sổ VBA project. Ví dụ: VBA project (book1)
4. Chọn Insert.Module
5. Nhấn đúp vào module mới tạo ra và nhập vào các đoạn mã sau.
1/ Hàm tính thuế thu nhập cá nhân dành cho công dân Việt Nam và các cá nhân khác định cư tại Việt Nam.
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
handung107
Xem hồ sơ
Gởi nhắn tin tới handung107
Gửi email đến handung107
Tìm bài gởi bởi handung107
Thêm handung107 vào Sổ Bạn Bè
Có 8 thành viên cảm ơn handung107 về bài viết này:
babakhuong, dkdkhk10, giuncon, hanh7a, Lado, stock, Thuyan.acc, tiendungwaco
#2 08-06-06, 01:50 PM
handung107
6th Excel Member
Tham gia ngày: 05 2006
Nơi Cư Ngụ: TP HCM
Bài gởi: 1,071
Tổng số lần cảm ơn: 358
Được cảm ơn 3,313 lần trong 695 bài viết
Bài của Datvuong
--------------------------------------------------------------------------------
2/ Hàm tính thuế thu nhập cá nhân người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài.
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
handung107
Xem hồ sơ
Gởi nhắn tin tới handung107
Gửi email đến handung107
Tìm bài gởi bởi handung107
Thêm handung107 vào Sổ Bạn Bè
Có 4 thành viên cảm ơn handung107 về bài viết này:
hanh7a, Lado, Thuyan.acc, tiendungwaco
#3 08-06-06, 01:52 PM
handung107
6th Excel Member
Tham gia ngày: 05 2006
Nơi Cư Ngụ: TP HCM
Bài gởi: 1,071
Tổng số lần cảm ơn: 358
Được cảm ơn 3,313 lần trong 695 bài viết
Bài của Datvuong
--------------------------------------------------------------------------------
3/ Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) dành cho công dân Việt Nam và các cá nhân khác định cư tại Việt Nam.
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
(Minh copy lai đó. hi hi hi hi