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

原创 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计算公式以及税后工资反算税前工资公式

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,...

解析几何:第二章 解析几何中的基本计算公式

§1 基本计算公式 序号 图形 计算公式 1 平面上两点间的距离: 2 空间中两点间的距离: 3 ...

“并发用户数”、“系统用户数”和“同时在线用户数”的计算公式

与并发用户数相关的概念还包括“并发用户数”、“系统用户数”和“同时在线用户数”,下面用一个实际的例子来说明它们之间的差别。     假设有一个OA系统,该系统有2000个使用用户——这就是说,可能使...

mysql 索引和 ken_len计算公式

欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来,用它写博客,将会带来全新的体验哦: Markdown和扩展Markdown简洁的语法 代码块高亮 图片链接和...

【matlab】matlab相关系数计算公式(Pearson和Spearman,以及Kendall Rank)

原文地址:http://blog.sina.com.cn/s/blog_4a0824490100ync4.html Pearson相关系数用来衡量两个数据集合是否在一条线上面。其计算公式...

SAP 标准成本、计划成本、目标成本、实际成本计算公式

(1)标准成本=标准价*标准量即根据物料主数据上的标准价S*BOM上的物料数量等到标准价,一般来讲我们是通过T-code  CK24 发布出来,即我们在物料主数据成本视图2看到的就是标准价。 (...

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

Abb.   Formula Description PV  BCWS Planned Value or Budget Cost of Work Schedule...

ZOJ 3876 May Day Holiday(找规律||打表-基姆拉尔森计算公式(求某年某月某日星期几))

May Day Holiday Time Limit: 2 Seconds      Memory Limit: 65536 KB As a university advocating sel...

缴满15年能领多少钱 养老金计算公式网上疯传

社保人员称我省计算方式与各设区市平均工资挂钩,与网上不同   最近,关于“延迟退休”引起各方高度关注,成为广大居民十分关心的话题。是否延迟退休尚无定论,但在网上有不少关于养老金的计算。那网上流传的计...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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