- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：利用按钮事件怎么实现个人所得税的计算，并自动赋值到1到12月的个人所得税列里。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52830)
-- 发布时间：2014/6/24 0:09:00
-- 求助：利用按钮事件怎么实现个人所得税的计算，并自动赋值到1到12月的个人所得税列里。
求助：利用按钮事件怎么实现个人所得税的计算，并自动赋值到1到12月的个人所得税列里。
要求当月份输入了12以后自动进行如下：
实现年个人所得税= （（（利润总和+业主工资总和）-14200）*0.35）+20250
然后对应计算月个人所得税为年个人所得税除以12
并赋值到1到12月的个人所得税列里
此主题相关图片如下：12.jpg
这个是按钮事件代码，能够实现个税计算，但是不能对应到1到12月的个人所得税列里 求修改代码，实现个人所得税列值全部等于12月份计算的数据
Dim r As Row =Tables("企业概况.销售和成本计划表").Current
Dim Sum1 As Double
Sum1 = Tables("销售和成本计划表").Compute("Sum(成本_业主工资)")
Dim Sum2 As Double
Sum2 = Tables("销售和成本计划表").Compute("Sum(利润)")
r("税费_个人所得税")=((((sum1+sum2)-14200)*0.35)+20250)/12
[此贴子已经被作者于2014-6-24 2:00:23编辑过]
-- 发布时间：2014/6/24 9:15:00
--
For Each r As Row In Tables("企业概况.销售和成本计划表").Rows
Dim Sum1 As Double
Sum1 = Tables("销售和成本计划表").Compute("Sum(成本_业主工资)")
Dim Sum2 As Double
Sum2 = Tables("销售和成本计划表").Compute("Sum(利润)")
r("税费_个人所得税")=((((sum1+sum2)-14200)*0.35)+20250)/12
Next
-- 发布时间：2014/6/24 9:29:00
-- 回复：（有点甜）For Each r As Row In Tables("企业概...
谢谢 有点甜老师