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

gzy

VB的 ,帮我查查截取小数点后第几位的函数是什么吧？还有保留小数点第几位的函数。
比如 3.1415 ----》 第四位是5
3.1414------》取小数后3位是3.141
麻烦大家帮我找找，多谢多谢！！！

雪山飞狐_lzh

Function getnumber(num As Double, index As Integer) As Double
Dim str As String, m As String
str = CStr(num)
m = InStr(str, ".")
getnumber = Mid(str, m + index, 1)
End Function Function getreal(num As Double, index As Integer) As Double
Dim m As Long, n As Double
m = num * (10 ^ index)
n = m
getreal = n / (10 ^ index)
End Function

zxj_76

=format(abc,"#0.000")


abc是数值变量

雪山飞狐_lzh

不错，用format好些

zfbj

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

wyj7485

CLng(1.23456 * 1000) / 1000亦可

tjdxtm

format比较好用

gzy

多谢多谢！！！！