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

原创 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中个人所得税计算公式

  • 2010年05月18日 09:04
  • 19KB
  • 下载

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

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

新个人所得税EXCEL计算公式以及税后工资反算税前工资公式详解

全国人大常委会6月30日下午表决通过了关于修改个人所得税法的决定,将个税起征点提高到3500元。根据决定,个税起征点将从现行的2000元提高到3500元,修改后的个税法将于2011年9月1日起施行。现...

新个人所得税EXCEL计算公式以及税后工资反算税前工资公式

1、2011年9月1日开始,个税计算公式 个税=ROUND(MAX((A6-3500)*{0.03,0.1,0.2,0.25,0.3,0.35,0.45}-{0,105,555,1005,2755,...

三相电流单相电流计算公式

  • 2017年07月12日 09:51
  • 6KB
  • 下载

Flyback变压器设计计算公式

  • 2015年08月21日 18:34
  • 22KB
  • 下载

n 阶贝塞尔曲线计算公式实现

n 次贝塞尔曲线计算公式实现,从贝塞尔曲线的一般参数方程入手,找出变化规律,实现输入任意点的坐标,返回连接所有点的贝塞尔曲线上的指定个数的点的坐标。...

曲率的计算公式

  • 2017年03月22日 09:59
  • 297KB
  • 下载

负荷计算公式

  • 2015年04月21日 10:18
  • 26KB
  • 下载

PMP考试中净值管理计算公式 集合

Abb.   Formula Description PV  BCWS Planned Value or Budget Cost of Work Schedule...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:个人所得税及酬金计算公式
举报原因:
原因补充:

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