类型:转载 责任编辑:asp 日期:2007/03/01
跟踪进去看到变量值为.05,怎么把它变成0.05?
推荐阅读
dim a as double
dim s as string
a=0.05
s=cstr(a)
dim i as long
i=instr(s,".",1)
if i=1 then
s="0"+s
end if
text1.text = format("0.05", "0.###")
text1.text = format(.05, "0.##")
"0.##"中##表示两位小数。
可以这样写:
text2.text = format(text1.text, "0.0##")
小数点后面的0最好加上,否则如果是整数的话,比如“1”,就会被格式为“1.”。
我想最好先判断一下是否是小数,如果是就执行如下代码:
text3.text = format(text1.text, "0.0##")
否则就执行如下代码:
text3.text = text1.text
用formatnumber函数:
返回一个数字格式的表达式.
语法;
formatnumber(expression[,numdigitsafterdecimal[,includeleadingdigit[,useparensfor
negativenumbers[,groupdigits]]]])
其中expression是必需的要被格式化的表达式.numdigitsafterdecimal是可选的数字值,表示小数点右边的显示位数.缺省值为1,表示使用计算机的区域设置值.includeleadingdigit是可选的三态常数,表示小数点前是否显示零.useparensfornegativenumbers是可选的三态常数,表示是否把负数值放在括号内.groupdigits是可选的的三态常数,表示是否用组分隔符对数字分组,组分隔符在计算机的区域设置值中指定.