如何判断数值类型的小数位数 （急）

Question

如何判断数值类型的小数位数 比如： 12      返回 0     
       12.1    返回 1
       12.01   返回 2依此类推！！

Answer 1

最怕是科学记数法function GetScale(byval d as double) as  long 
    dim s as string 
   s=cstr(d)
   if instr(1,s,".")>0 then
       GetScale=len(s)-instr(1,s,".")
   else
       GetScale=0
   end if
end function

Answer 2

f=12.1
s=cstr(f)
p=instr(s,".")
if p>0 then
 result=len(s)-p
else
 result= 0
end if

Answer 3

假设x是你要判断的数。y是它的小数位数y=len(cstr(x))-instr(cstr(x),"."))