<
******************************
函数：逗号（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）+月
最后如果
逗号=结果
端功能
%>