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

% ''****************************** ''函数:comma(str) ''参数:str,待处理的数字 ''作者:阿里西西 ''日期:2007/7/12 ''描述:返回以千分位显示数字格式化的数值 ''示例:%=comma('120300')% ''****************************** functioncomma(str) ifnot(isnumeric(str))orstr=0then result=0 elseiflen(fix(str)

作者: 来源: 时间: 17-11-23 15:27:26

<%
''******************************
''函数: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 
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们