Access自定义小数位数函数源码

引用 make 2002-6-15 00:29

谢谢，不过能否做一个统一的函数，方便调用，先谢了

引用 huanghai 2002-6-15 00:36

sdlhlsd版主，代码很好。
有没有兴趣写成这样的格式
Public Function N-N(D As Double,N as Integer) As Double
。。。。。

----------------
达到这样的效果：
N-N（1.756 , 1）=1.8
N-N（1.756 , 2）=1.76

引用 make 2002-6-15 00:40

好，正是，我就想要这样

引用 sdlhlsd 2002-6-15 00:46

好主意!
只要在前面加一点点就行了!

引用 make 2002-6-15 00:53

我想到了，这样行不行
Public Function nn(n as Double,D As Double) As Double

n2 = Int(D * 10*n + 0.5) / 100

Exit Function
'此函数可保留两位小数
End Function

引用 tmtony 2002-6-15 01:41

有些BUG
我再改一下
Public Function nn(n as Integer,D As Double) As Double
if n<=0 then
msgbox "位数不能少于0"
exit Function
end if
n2 = Int(D * 10*n + 0.5) / n*10
End Function

如果是0位，即取整，大家可再加些程序

引用 sdlhlsd 2002-6-15 01:57

这样还不行!要乘10的n次方,即10的幂！

引用 tmtony 2002-6-15 02:17

倒是忘了：）
再改
Public Function nn(n as Integer,D As Double) As Double
if n<0 then
msgbox "位数不能少于0"
exit Function
end if
n2 = Int(D * 10^n + 0.5) / 10^n
End Function

引用 huanghai 2002-6-15 06:11

以下是引用tmtony在2002-6-14 18:17:18的发言：
倒是忘了：）
再改&nbsp;
Public&nbsp;Function&nbsp;nn(n&nbsp;as&nbsp;Integer,D&nbsp;As&nbsp;Double)&nbsp;As&nbsp;Double
if&nbsp;n<0&nbsp;then&nbsp;
msgbox&nbsp;"位数不能少于0"
exit&nbsp;Function
end&nbsp;if
n2&nbsp;=&nbsp;Int(D&nbsp;*&nbsp;10^n&nbsp;+&nbsp;0.5)&nbsp;/&nbsp;10^n
End&nbsp;Function

nn=Int(D * 10^n + 0.5) / 10^n

引用 youshanzx 2002-6-15 07:05

不错,高手探讨,新手跟着多学一点,少走不少弯路,谢乐!!!



                                     -----------------------------------
                                        勿以恶小而为之,勿以善小而不为

引用 ail 2003-5-23 06:57

如果是通用的调用，选那位版主的呢？

查看全部评论(11)