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 %> |
