|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;大写|国民币 <%
callMoney(22222222222)
functionMoney(thenumber)
dimMoney,i,String1,String2,length,checkp'界说变量
dimone(),onestr()'界说数组 String1="零壹贰叁肆伍陆柒捌玖"
String2="万仟佰拾亿仟佰拾万仟佰拾元角分厘毫"
checkp=instr(thenumber,".")'判别是不是含有小数位
ifcheckp<>0then
thenumber=replace(thenumber,".","")'去除小数位
endif
length=len(thenumber)'获得数据长度
redimone(length-1)'从头界说数组巨细
redimonestr(length-1)'从头界说数组巨细
fori=0tolength-1
one(i)=mid(thenumber,i+1,1)'轮回获得每位的数字
one(i)=mid(string1,one(i)+1,1)'轮回获得数字对应的大写
ifcheckp=0then
'不含有小数的数据其数字对应的单元
onestr(i)=mid(string2,14-length+i,1)
else
'含有小数的数据其数字对应的单元
onestr(i)=mid(string2,15-length+i+len(thenumber)-checkp,1)
endif
one(i)=one(i)&onestr(i)'将数字与单元组合
next
Money=replace(join(one),"","")'获得数组中一切的元素,并毗连起来
Money=replace(Money,"零元","元")
Money=replace(Money,"零万","万")
Money=replace(Money,"零亿","亿")
Money=replace(Money,"零仟","零")
Money=replace(Money,"零佰","零")
Money=replace(Money,"零拾","零")
dowhilenotinstr(Money,"零零")=0
Money=replace(Money,"零零","零")
loop
response.writeMoney '显示了局
end function
%>
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题 |
|