小数位变整数位
评论/浏览(0/0)发表时间:2007年5月14日 14时41分 http://user.qzone.qq.com/9655814
'适用:asp
'作用:返回数值的小数位的所有字符
Function Getall(re)
If IsNumeric(re) then
Getall=abs(re)-int(abs(re))
Getall=Getall*10^(GetTail(re) -1)
else
Getall="当前变量不是数值类型!"
end If
end Function
Function GetTail(re)
If IsNumeric(re) then
GetTail=len(abs(re)-int(abs(re)))
else
GetTail="当前变量不是数值类型!"
end If
end Function
'调用方法:
response.write Getall("0.315") '返回 315