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

时间:2022-09-18 20:18:10
  1. <%  
  2. '******************************  
  3. '函数:comma(str)  
  4. '参数:str,待处理的数字  
  5. '作者:阿里西西  
  6. '日期:2007/7/12  
  7. '描述:返回以千分位显示数字格式化的数值  
  8. '示例:<%=comma("120300")%>  
  9. '******************************  
  10. function comma(str)   
  11. if not(isnumeric(str)) or str = 0 then   
  12. result = 0   
  13. elseif len(fix(str)) < 4 then   
  14. result = str   
  15. else   
  16. pos = instr(1,str,".")   
  17. if pos > 0 then   
  18. dec = mid(str,pos)   
  19. end if   
  20. res = strreverse(fix(str))   
  21. loopcount = 1   
  22. while loopcount <= len(res)   
  23.  
  24.  
  25. tempresult = tempresult + mid(res,loopcount,3)   
  26. loopcount = loopcount + 3   
  27. if loopcount <= len(res) then   
  28. tempresult = tempresult + ","   
  29. end if   
  30. wend   
  31. result = strreverse(tempresult) + dec   
  32. end if   
  33. comma = result   
  34. end function   
  35. %>