求助!!!一公式可计算不同条件下的营业税和所得税。

shangyu

按你的做，200409表：

AJ2=(SUM(T2:AG2,L2,-AI2)>1500)*SUM(T2:AG2,L2,-AI2)*0.0545

AM2=SUM(T2:AH2,L2,-AI2)*VLOOKUP(SUM(T2:AH2,L2,-AI2),{0,0;1066.68,0.15;1500.01,0.141825;5640.76,0.11346;35254.73,0.17019;88136.8,0.22692},2)-VLOOKUP(SUM(T2:AH2,L2,-AI2),{0,0;1066.68,160;1500.01,160;5640.76,0;35254.73,2000;88136.8,7000},2)

复制下去。

apolloh

以前编的

求应发工资的所得税，输入参数，应发工资和扣除数

Function Psntax(amt As Currency, Optional dtc As Currency) As Currency Dim amt1 As Currency Dim tax As Currency If dtc = 0 Then dtc = 1500 amt1 = amt - dtc If amt1 > 0 And amt1 <= 500 Then tax = amt1 * 0.05 ElseIf amt1 > 500 And amt1 <= 2000 Then tax = amt1 * 0.1 - 25 ElseIf amt1 > 2000 And amt1 <= 5000 Then tax = amt1 * 0.15 - 125 ElseIf amt1 > 5000 And amt1 <= 20000 Then tax = amt1 * 0.2 - 375 ElseIf amt1 > 20000 And amt1 <= 40000 Then tax = amt1 * 0.25 - 1375 ElseIf amt1 > 40000 And amt1 <= 60000 Then tax = amt1 * 0.3 - 3375 ElseIf amt1 > 60000 And amt1 <= 80000 Then tax = amt1 * 0.35 - 6375 ElseIf amt1 > 80000 And amt1 <= 100000 Then tax = amt1 * 0.4 - 10375 ElseIf amt1 > 100000 Then tax = amt1 * 0.45 - 15375 End If Psntax = tax End Function

求实发工资的所得税，输入参数，实发工资和扣除数

Function Npsntax(amt As Currency, Optional dtc As Currency) As Currency Dim Amtx As Currency If dtc = 0 Then dtc = 1500 Amtx = amt Do While Round(amt, 2) + Round(Psntax(Amtx, dtc), 2) <> Round(Amtx, 2) Amtx = Amtx + 0.01 Loop Npsntax = Amtx End Function

shangyu

以下是引用apolloh在2004-10-11 14:29:00的发言：

以前编的

求应发工资的所得税，输入参数，应发工资和扣除数

楼主的工资不是薪金所得，是劳务报酬所得，算法和税率不一样。

fazn0531

版主可不可以把你的公式传上来给我好吗？

谢谢了！！

fazn0531

对不起，原来在下一页，谢了。j等找到文件再请您帮忙。

再次谢了！！！

wz360

这个公式并不难，我曾经做过．用IF函数即可，但首先要清楚税率．

在中国，不同的地区，税率也不同，服务业营业税税率全国均为５％，城建税有的地区７％，有的地区５％，教育费３％，有的地区开征１％的地方教育费，有的地区未开征．因此在扣除税费的时候可能出现几种情况：５.５５％，５.４５％，５.５％，建议楼主到所在地地方税务局问清楚税率．

第二要注意扣除顺序，一般先扣除税费，再扣除８００或１-２０％，