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 

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!