主题：读取小数数据，点前没有0 的几种解决方法

1。
有函数的，看一下Formatnumber函数

2。
在"控制面版"---"区域和语言选项"--"区域选项"---"自定义"---"数字"---"零起始显示"中选择0.xx

3。
如果在做了法2之后还不行,就需要在程序里处理:

if DataValue<1 then
if left(DataValue,1)<>"0" then
DataValue="0"&DataValue  
end if
end if

其实还有种情况可能会同时出现,那就是你填的是1.30,但在asp里只显示1.3,如果必须要显示1.30,可以这样做:

''小数点后不足2位的,自动补0
if len(DataValue)-instr(DataValue,".")<2 then  
DataValue=formatNumber(DataValue,2,-1)
end if

综合上面2种问题,整合解决方法:

if int(DataValue)<>DataValue then  
''小数点后不足2位的,自动补0
if len(DataValue)-instr(DataValue,".")<2 then  
DataValue=formatNumber(DataValue,2,-1)
end if

''小数点前没有0的小数补0
if DataValue<1 then
if left(DataValue,1)<>"0" then
DataValue="0"&DataValue  
end if
end if  
end if