明凯博客

关注网站技术,一个特立独行的程序员

asp以千分位格式显示数字

很多时候我在处理数值的时候需要把数值变成千分位的格式,即每三个数加一个”,”,下面是ASP格式化数值的函数。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
< % 
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 
%>

使用的时候只需要用把数值放在comma函数里面就好了。

1
2
a=1234567890
response.write comma(a)

输出来的结果是:1,234,567,890

, , , ,

相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注