'############################################################### '函数作用:计算某种税金 '############################################################### 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 |
|