请教如何使用函数

hsie

我是个初学者，想设计一个计算工资的东西，在计算所得税的时候，使用了别人编写的一个程序，但是我不知道如何在报表里引用这个函数。因为要是我象引用内部函数一样直接引用该函数，总是叫我输入参数值，请问怎么办，谢谢。

sea.er

应该可以直接引用，可能是你的参数的问题

hsie

我把下面这段程序直接COPY到模块里面，并建立一个新的模快叫IncomeTax,然后我在报表里面直接引用，如INCOMETAX(10000)，但是却提示我要输如IncomeTax的参数。请问是什么原因呢，谢谢。

Public Function IncomeTax(JiSuiJinE As Currency)
Dim JinE As Currency
'FeiYong为计税前扣除数
JinE = Val(Nz(JiSuiJinE, 0)) - 1000
Select Case JinE
Case Is <= 0
IncomeTax = 0
Case Is <= 500
IncomeTax = JinE * 0.05 - 0
Case Is <= 2000
IncomeTax = JinE * 0.1 - 25
Case Is <= 5000
IncomeTax = JinE * 0.15 - 125
Case Is <= 20000
IncomeTax = JinE * 0.2 - 375
Case Is <= 4000
IncomeTax = JinE * 0.25 - 1375
Case Is <= 60000
IncomeTax = JinE * 0.3 - 3375
Case Is <= 80000
IncomeTax = JinE * 0.35 - 6375
Case Is <= 10000
IncomeTax = JinE * 0.4 - 10375
Case Is > 10000
IncomeTax = JinE * 0.45 - 15375
Case Else
IncomeTax = 0
End Select
End Function