asp下返回以千分位显示数字格式化的数值

<%
'******************************
'函数：comma(str)
'参数：str，待处理的数字
'作者：阿里西西
'日期：2007/7/12
'描述：返回以千分位显示数字格式化的数值
'示例：<%=comma("120300")%>
'******************************
function comma(str) 
if not(isnumeric(str)) or str = 0 then 
result = 0 
elseif len(fix(str)) < 4 then 
result = str 
else 
pos = instr(1,str,".") 
if pos > 0 then 
dec = mid(str,pos) 
end if 
res = strreverse(fix(str)) 
loopcount = 1 
while loopcount <= len(res) 


tempresult = tempresult + mid(res,loopcount,3) 
loopcount = loopcount + 3 
if loopcount <= len(res) then 
tempresult = tempresult + "," 
end if 
wend 
result = strreverse(tempresult) + dec 
end if 
comma = result 
end function 
%>

最后

以上就是热情香水为你收集整理的asp下返回以千分位显示数字格式化的数值的全部内容，希望文章能够帮你解决asp下返回以千分位显示数字格式化的数值所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。