请问access里的四舍五入问题,如何解决!

public function roundtolarger(dblinput as double, intdecimals as integer) as double

'implements a variant of the round() function, that rounds-to-larger
'rather than rounds-to-even:

dim strformatstring as string 'format string

'if input is zero, just return zero. else format as appropriate:
if dblinput <> 0 then
strformatstring = "#." & string(intdecimals, "#")
roundtolarger = format(dblinput, strformatstring)
else
roundtolarger = 0
end if

end function

为何我将上述的函数copy到access模块时,在立即窗口运行时,提示

"编译错误

缺少变量或过程,不是模块"

谢谢各们高手!!!!