Office中国论坛/Access中国论坛

标题: [已解决] 如何计算小数 [打印本页]

作者: bach 时间: 2008-5-28 04:10
标题: [已解决] 如何计算小数
在表字段里可以表示小数,做了一个累加的程序,但结果是四舍五入的,如何显示成小数以后几位呢,请大家帮忙.
Private Function jishuan(f1 As Boolean, f2 As Boolean, f3 As Boolean) As Long

On Error GoTo Error_jishuan

Dim v1, v2, v3
v1 = Nz(DLookup("[Value]", "a2", "factorname='factor1'"))
v2 = Nz(DLookup("[Value]", "a2", "factorname='factor2'"))
v3 = Nz(DLookup("[Value]", "a2", "factorname='factor3'"))
If f1 = -1 Then jishuan = v1
If f2 = -1 Then jishuan = jishuan + v2
If f3 = -1 Then jishuan = jishuan + v3

Exit_jishuan:
Exit Function

Error_jishuan:
Resume Exit_jishuan
End Function

[ 本帖最后由 cuxun 于 2008-5-28 15:11 编辑 ]

作者: wang1950317 时间: 2008-5-28 08:48
受教！

作者: chenwm1973 时间: 2008-5-28 12:26
[:50] [:50] [:50]

作者: bach 时间: 2008-5-28 13:51

原帖由 cuxun 于 2008-5-28 06:32 发表
帮你简化了一下你的函数,连续使用了三次DLookup是不科学的,本来打算用DAO的,但是发现用DSUM就可以搞定了Private Function JiShuan(f1 As Boolean, f2 As Boolean, f3 As Boolean) As Double

On Error GoTo Erro ...

不甚感激.

作者: bach 时间: 2008-5-28 15:11
[:50] [:50] [:50]

[ 本帖最后由 bach 于 2008-5-28 15:55 编辑 ]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)