改进一下,去掉没用的0 让结果分别是 5和3.5
复制代码 代码如下:
function fm(nb)
if isnumeric(nb) then
dim a
a=formatnumber(nb,2,-1)
if right((a+""),2)=00 then
fm=clng(a)
else
fm=formatnumber(nb,1,-1)
end if
else
fm=0
end if
end function
您可能感兴趣的文章:
如您对本文有疑问或者有任何想说的,请点击进行留言回复,万千网友为您解惑!
网友评论