个人所得税及酬金计算公式

原创 2006年06月02日 15:47:00

Public Class gss
    '输入劳务费金额
    Private _inlwje As Double
    '输入工薪金额
    Private _ingxje As Double
    '输出劳务费应纳税所得额
    Private _outlwyse
    '输出劳务费应扣所得税
    Private _outlwyks As Double
    '输出劳务费适用税率
    Private _outlwsl As String
    '输出工薪速算扣除数
    Private _outgxkcs As Double
    '输出工薪应纳税所得额
    Private _outgxyse As Double
    '输出工薪应扣所得税
    Private _outgxyks As Double
    '输出工薪适用税率
    Private _outgxsl As String
    '输入校外劳务费金额
    Private _inlwxwje As Double

 

    Public WriteOnly Property inlwje() As Double
        Set(ByVal Value As Double)
            _inlwje = Value
            Claowu()
        End Set
    End Property

    Public WriteOnly Property ingxje() As Double
        Set(ByVal Value As Double)
            _ingxje = Value
            Cgongxin()
        End Set
    End Property

    Public ReadOnly Property outlwyse() As Double
        Get
            Return _outlwyse
        End Get
    End Property

    Public ReadOnly Property outlwyks() As Double
        Get
            Return _outlwyks
        End Get
    End Property
    Public ReadOnly Property outlwsl() As String
        Get
            Return _outlwsl
        End Get
    End Property
    Public ReadOnly Property outgxkcs() As Double
        Get
            Return _outgxkcs
        End Get
    End Property
    Public ReadOnly Property outgxyse() As Double
        Get
            Return _outgxyse
        End Get
    End Property
    Public ReadOnly Property outgxyks() As Double
        Get
            Return _outgxyks
        End Get
    End Property
    Public ReadOnly Property outgxsl() As String
        Get
            Return _outgxsl
        End Get
    End Property

    Public WriteOnly Property inlwxwje() As Double
        Set(ByVal Value As Double)
            _inlwxwje = Value
            Claowuxw()
        End Set
    End Property

    Private Sub Claowu()
        Dim je As Double
        je = Me._inlwje
        If je <= 800 Then
            Me._outlwyse = 0
            Me._outlwyks = 0
            Me._outlwsl = ""
        ElseIf je > 800 And je <= 4000 Then
            Me._outlwyse = je - 800
            Me._outlwyks = (je - 800) * 0.2
            Me._outlwsl = "20%"
        ElseIf je > 4000 And je <= 25000 Then
            Me._outlwyse = je * 0.8
            Me._outlwyks = je * 0.16
            Me._outlwsl = "20%"
        ElseIf je > 25000 And je <= 62500 Then
            Me._outlwyse = je * 0.8
            Me._outlwyks = je * 0.24 - 2000
            Me._outlwsl = "30%"
        ElseIf je > 62500 Then
            Me._outlwyse = je * 0.8
            Me._outlwyks = je * 0.32 - 7000
            Me._outlwsl = "40%"
        End If
    End Sub
    Private Sub Cgongxin()
        Dim je As Double
        je = Me._ingxje
        je = je - 1600
        If je < 0 Then
            Me._outgxyse = 0
        Else
            Me._outgxyse = je
        End If
        If je <= 0 Then
            Me._outgxkcs = 0
            Me._outgxsl = ""
            Me._outgxyks = 0
        ElseIf je > 0 And je <= 500 Then
            Me._outgxkcs = 0
            Me._outgxsl = "5%"
            Me._outgxyks = je * 0.05
        ElseIf je > 500 And je <= 2000 Then
            Me._outgxkcs = 25
            Me._outgxsl = "10%"
            Me._outgxyks = je * 0.1 - 25
        ElseIf je > 2000 And je <= 5000 Then
            Me._outgxkcs = 125
            Me._outgxsl = "15%"
            Me._outgxyks = je * 0.15 - 125
        ElseIf je > 5000 And je <= 20000 Then
            Me._outgxkcs = 375
            Me._outgxsl = "20%"
            Me._outgxyks = je * 0.2 - 375
        ElseIf je > 20000 And je <= 40000 Then
            Me._outgxkcs = 1375
            Me._outgxsl = "25%"
            Me._outgxyks = je * 0.25 - 1375
        ElseIf je > 40000 And je <= 60000 Then
            Me._outgxkcs = 3375
            Me._outgxsl = "30%"
            Me._outgxyks = je * 0.3 - 3375
        ElseIf je > 60000 And je <= 80000 Then
            Me._outgxkcs = 6375
            Me._outgxsl = "35%"
            Me._outgxyks = je * 0.35 - 6375
        ElseIf je > 80000 And je <= 100000 Then
            Me._outgxkcs = 10375
            Me._outgxsl = "40%"
            Me._outgxyks = je * 0.4 - 10375
        ElseIf je > 100000 Then
            Me._outgxkcs = 15375
            Me._outgxsl = "45%"
            Me._outgxyks = je * 0.45 - 15375
        End If

    End Sub
    Private Sub Claowuxw()
        Dim je As Double
        je = Me._inlwxwje
        If je <= 1000 Then
            Me._outlwyse = je
            Me._outlwsl = "9%"
            Me._outlwyks = je * 0.09
        ElseIf je > 1000 And je <= 20000 Then
            Me._outlwyse = je
            Me._outlwsl = "20%"
            Me._outlwyks = je * 0.2
        ElseIf je > 20000 And je <= 50000 Then
            Me._outlwyse = je
            Me._outlwsl = "25%"
            Me._outlwyks = je * 0.25
        ElseIf je > 50000 Then
            Me._outlwyse = je
            Me._outlwsl = "30%"
            Me._outlwyks = je * 0.3
        End If
    End Sub
End Class

Excel个人所得税简洁计算公式

iamlaosong文 我们知道,最新的个人所得税起征点是 3500元,税率从3%到45%,分有7个等级,为提高计算速度,与不同税率相对应有7个速算扣除数,如下表所示: 级数 含税级距 不含...
  • iamlaosong
  • iamlaosong
  • 2016年12月19日 17:19
  • 7744

个人所得税计算公式

个人所得税由公司在发放工资时代扣代缴个人所得税。附计算依据: 应纳个人所得税税额=(应纳税所得-扣除标准)*适用税率-速算扣除数 扣除标准2000元/月。 不超过500元的,税率5%,速算扣除数为0;...
  • changyuming
  • changyuming
  • 2008年09月08日 20:36
  • 652

C++实践参考解答 个人所得税计算器

课程主页在http://blog.csdn.net/sxhelijian/article/details/39152703,实践要求见http://blog.csdn.net/sxhelijian/a...
  • sxhelijian
  • sxhelijian
  • 2014年10月16日 21:01
  • 3150

个人所得税征收计算公式

个人所得税计算公式 应纳税所得额 = 工资收入金额 - 各项社会保险费 - 起征点(3500元) 应纳税额 = 应纳税所得额 x 税率 - 速算扣除数 说明:如果计算的是外籍人士(包括港、澳、台)...
  • pan0755
  • pan0755
  • 2017年01月10日 09:59
  • 151

2010年个人所得税计算公式

http://www.51labour.com/zhuanti/2008protax/ 个人所得税计算公式征缴个人所得税的计算方法,个税起征点原来是1600,现在是2000,使用超额累进税率的计算方法...
  • ctbinzi
  • ctbinzi
  • 2010年12月11日 08:46
  • 878

js个税计算

**反向计算,得出税前工资 * beginMoney 征收起点 * handMoeny 税后工资         function deCalcPersonalT...
  • nuptsv_ice
  • nuptsv_ice
  • 2013年08月28日 16:51
  • 1483

一个计算个人所得税的例子

最近写了段计算个人所得税的算法,自己感觉比较不错。    public float ComputeTax(float income)    //income为工资    {        float ...
  • wenwenwen
  • wenwenwen
  • 2005年01月14日 10:10
  • 1796

Excel计算个人所得税的计算公式:

X2是税前工资所在的EXCEL的列:=if(X2分五种情况:X2X2>=500 and X2X2>=2000 and X2X2>5000 and X2其它情况:返回0不过EXCEL中的IF只支持7层嵌...
  • xjzdr
  • xjzdr
  • 2008年05月10日 01:05
  • 4263

【oracle】个人所得税公式

参数为:应税工资
  • attwice
  • attwice
  • 2015年09月10日 19:45
  • 569

个人所得税计算公式(起征点2000元)

 实用工具:个人所得税计算器征缴个人所得税的计算方法(起征点2000元),使用超额累进税率的计算方法如下:缴税=全月应纳税所得额*税率-速算扣除数全月应纳税所得额=(应发工资-四金)-2000实发工资...
  • songkexin
  • songkexin
  • 2009年11月05日 09:57
  • 1652
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:个人所得税及酬金计算公式
举报原因:
原因补充:

(最多只允许输入30个字)