返回ASP下的第一千位数字格式化值。

<
******************************
函数:逗号(STR)
参数:STR,待处理的数字
作者:Ali Cici
日期:2007 7 12
说明:返回第一千位数字格式化值的数目。
的例子:
******************************
函数逗号(STR)
如果不是(ISNUMERIC(STR))或STR = 0
结果= 0
Elseif len(FIX(STR))<4
结果:STR
其他的
POS =仪器(1,STR,,)
如果POS > 0然后
中间(STR,POS)
最后如果
RES = StrReverse(固定(STR))
loopcount = 1
而loopcount len(RES)


tempresult = tempresult +中(RES,loopcount,3)
loopcount = loopcount + 3
如果loopcount len(RES)然后
tempresult = tempresult +
最后如果

结果= StrReverse(tempresult)+月
最后如果
逗号=结果
端功能
%>