九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

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

'函數(shù)作用：計(jì)算某種稅金

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

Public Function 稅(fa)

    Dim x

    If (fa ‐ 800) > 0 And (fa ‐ 800) < 500 Then

        x = (fa ‐ 800) * 0.05

        稅 = x

    ElseIf (fa ‐ 800) >= 500 And (fa ‐ 800) < 2000 Then

        x = (fa ‐ 800) * 0.1 ‐ 25

        稅 = x

    ElseIf (fa ‐ 800) >= 2000 And (fa ‐ 800) < 5000 Then

        x = (fa ‐ 800) * 0.15 ‐ 125

        稅 = x

    ElseIf (fa ‐ 800) >= 5000 And (fa ‐ 800) < 20000 Then

        x = (fa ‐ 800) * 0.2 ‐ 375

        稅 = x

    ElseIf (fa ‐ 800) >= 20000 And (fa ‐ 800) < 40000 Then

        x = (fa ‐ 800) * 0.25 ‐ 1375

        稅 = x

    ElseIf (fa ‐ 800) >= 40000 And (fa ‐ 800) < 60000 Then

        x = (fa ‐ 800) * 0.3 ‐ 3375

        稅 = x

    ElseIf (fa ‐ 800) >= 60000 And (fa ‐ 800) < 80000 Then

        x = (fa ‐ 800) * 0.35 ‐ 6375

        稅 = x

    ElseIf (fa ‐ 800) >= 80000 And (fa ‐ 800) < 100000 Then

        x = (fa ‐ 800) * 0.4 ‐ 10375

        稅 = x

    ElseIf (fa ‐ 800) >= 100000 Then

        x = (fa ‐ 800) * 0.45 ‐ 15375

        稅 = x

    Else

    End If

End Function