gzy 发表于 2004-9-5 22:09:00

问两个VB的函数，找了一天都找不到个书店！！

VB的 ,帮我查查截取小数点后第几位的函数是什么吧？还有保留小数点第几位的函数。<BR>       比如       3.1415       ----》       第四位是5<BR>                                                       3.1414------》取小数后3位是3.141


<BR>麻烦大家帮我找找，多谢多谢！！！ <BR><BR>

雪山飞狐_lzh 发表于 2004-9-5 23:59:00

Function getnumber(num As Double, index As Integer) As Double<BR>Dim str As String, m As String<BR>str = CStr(num)<BR>m = InStr(str, ".")<BR>getnumber = Mid(str, m + index, 1)<BR>End Function


Function getreal(num As Double, index As Integer) As Double<BR>Dim m As Long, n As Double<BR>m = num * (10 ^ index)<BR>n = m<BR>getreal = n / (10 ^ index)<BR>End Function<BR>

zxj_76 发表于 2004-9-6 10:48:00

=format(abc,"#0.000")


abc是数值变量

雪山飞狐_lzh 发表于 2004-9-6 11:13:00

不错，用format好些

zfbj 发表于 2004-9-6 15:21:00

Round函数可以解决第二个问题，不过飞弧斑竹给出的基本上就是该函数的实现。

wyj7485 发表于 2004-9-6 15:50:00

CLng(1.23456 * 1000) / 1000亦可

tjdxtm 发表于 2004-9-6 17:02:00

format比较好用

gzy 发表于 2004-9-6 18:34:00

多谢多谢！！！！
页: [1]
查看完整版本: 问两个VB的函数，找了一天都找不到个书店！！