求VBA语句，请高手解答！

ha0148

请看图解，望高手解答。谢谢！

todaynew

１、写一个自定义函数：
function fn(val as singe) as integer
　　dim num as integer
　　val=cint(val) '取整
　　num=val mod 10        '取个位数
　　if num>=5 then
　　　　val=cint(val/10)*10+5
　　else
　　　　val=cint(val/10)*10  '个位置零
　　end if
　　fn=val
end fuction

２、在文本框的更新后事件中写：
me.aa.value=fn(me.aa.value)

ha0148

谢谢您的回复，可我将您的函数粘贴到ACCESS的模块中，运行后提示

todaynew

ha0148 发表于 2012-5-10 11:00
谢谢您的回复，可我将您的函数粘贴到ACCESS的模块中，运行后提示

参数的数据类型用这个玩意Single

ha0148

版主,我还是不懂,我传上数据库您能帮我写一下吗?谢谢您了,谢谢!!!!

轻风

function fn(val as singe) as integer  ==>  function fn(val as Single) as integer

轻风

好象不能用CInt函数，而用Int函数：


Function fn(val As Single) As Integer
    Dim num As Integer
    val = Int(val)    '取整
    num = val Mod 10      '取个位数
    If num >= 5 Then
        val = Int(val / 10) * 10 + 5
    Else
        val = Int(val / 10) * 10    '个位置零
    End If
    fn = val
End Function

todaynew

ha0148 发表于 2012-5-10 14:07
版主,我还是不懂,我传上数据库您能帮我写一下吗?谢谢您了,谢谢!!!!

ha0148

谢谢大家,这问题基本解决了,但我还要看懂这些代码, 我来研究一下,弄懂它.谢谢!

ak47ok

每次回帖、谢谢！辛苦了。