如何判断一个小数后的位数？

[hjb111]

例如一个小数0.32567小数点后的数字为5位，如果用vb代码判断这个小数后位数为5位？

[yongtang]

dim d_input as double
dim s_input as string
dim i,i_rtvalue as integer

d_input=0.32567
s_input=cstr(d_input)

for i=1 to len(s_input)
if mid(s_input,i,1)="." then
i_rtvalue=len(s_input)-i
end if
next i

[会飞的魔术师]

小数的长度减去小数点的位置

[yongtang]

i_rtvalue就是判断出小数点后面的为数的变量。

[zzyong00]

i_rtvalue=len(Cstr(0.32567))-instr(Cstr(0.32567),".")