003.返回当个人工资薪金所得为2000元（起征点为850元）时的应纳个人所得税税额

'###############################################################

'函数作用：返回当个人工资薪金所得为 2000 元(起征点为 850 元)时的应纳个人所得税税额

'语       法：Grsds(bsc, mysala)

'参数说明：bsc: 必选项，为起征点，包括税法规定的工资基数 800 元加上允许税前扣除的合理费用;

'                 mysala: 必选项，为人个工资薪金所得。

'示       例：Grsds(850, 20000) =

'###############################################################

Function Grsds(bsc As Double, mysala As Double) As Double

    'bsc 为起征点加上允许税前扣除的合理费用,mysala 为工资薪金所得

    On Error GoTo Grsds_err

    Select Case mysala

        Case Is <= bsc

            Grsds = 0

        Case Is <= bsc + 500

            Grsds = Application.WorksheetFunction.Round((mysala ‐ bsc) * 0.05, 2)

        Case Is <= bsc + 2000

            Grsds = Application.WorksheetFunction.Round((mysala ‐ bsc) * 0.1 ‐ 25,2)

        Case Is <= bsc + 5000

            Grsds = Application.WorksheetFunction.Round((mysala ‐ bsc) * 0.15 ‐ 125,2)

        Case Is <= bsc + 20000

            Grsds = Application.WorksheetFunction.Round((mysala ‐ bsc) * 0.2 ‐ 375,2)

        Case Is <= bsc + 40000

            Grsds = Application.WorksheetFunction.Round((mysala ‐ bsc) * 0.25 ‐ 1375,2)

        Case Is <= bsc + 60000

            Grsds = Application.WorksheetFunction.Round((mysala ‐ bsc) * 0.3 ‐ 3375,2)

        Case Is <= bsc + 80000

            Grsds = Application.WorksheetFunction.Round((mysala ‐ bsc) * 0.35 ‐ 6375,2)

        Case Is <= bsc + 100000

            Grsds = Application.WorksheetFunction.Round((mysala ‐ bsc) * 0.4 ‐ 10375,2)

        Case Else

            Grsds = Application.WorksheetFunction.Round((mysala ‐ bsc) * 0.45 ‐ 

15375, 2)

    End Select

Grsds_Exit:

    Exit Function

Grsds_err:

    MsgBox Err.Number & ":" & Err.Description

    Resume Grsds_Exit

End Function