人民币大小写自动转换

weilin_ai 2009-09-21 05:38:50

我想要的是：在一个文本框里面输入人民币或者数字在后面一个文本框里自动转换出大写人民币不知道该如何写才好？谢谢！

...全文

194 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

weilin_ai 2009-09-23

打赏
举报

非常感谢！正是我想要的结果！！！

Dadimamiilove 2009-09-22

打赏
举报

加我Q给一个我正在使用的转换你~458012374

chinabh 2009-09-22

打赏
举报

给你找了个能用的：http://js.bhcode.net/javascript/20090922/127.html

lbcleo 2009-09-22

打赏
举报

[Quote=引用 4 楼 chenlongit 的回复:]
VBScript code<%Function uMoney(money)IfNotIsNumeric(money)or money>9999999999999.99Then
uMoney="超出范围"ExitFunctionelse
uMoney="人民币"endifDim numList : numList=array("零","壹","贰","叁","肆","伍","陆","柒","¡
[/Quote]
```

落日听风 2009-09-22

打赏
举报

网上搜一下

hongmaohouzi 2009-09-22

打赏
举报

http://hi.csdn.net/link.php?url=http://blog.csdn.net%2Fhongmaohouzi

黑心 2009-09-22

打赏
举报

大写：元 = 圆

MR丶CHAN 2009-09-21

打赏
举报



<%

Function uMoney(money) 

If Not IsNumeric(money) or money>9999999999999.99 Then 

   uMoney="超出范围"

   Exit Function

else

uMoney="人民币"

end if

Dim numList : numList = array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖")

Dim rmbList : rmbList = array("元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万")

Dim rList : rList = array("零分","零角","零元","零拾","零佰","零仟","零万","零亿")

Dim tList : tList = array("整","零","元","零","零","零","万","亿")



money = cStr(FormatNumber(money,2,0,0,0))

Dim moneyArr : moneyArr = split(money,".")



Dim mLen : mLen = len(moneyArr(0))

Dim i,n

for i=1 to mLen

   n = int(Mid(moneyArr(0),i,1))

   uMoney = uMoney & numList(n) & rmbList(mLen-i)

next

uMoney = uMoney & numList(left(moneyArr(1),1)) & "角" & numList(right(moneyArr(1),1)) & "分"



for i=0 to ubound(rList)

   uMoney = replace(uMoney,rList(i),tList(i)) 

next



while instr(uMoney,"零零")<>0 

    uMoney = replace(uMoney,"零零","零")

wend



uMoney = Replace(uMoney, "零亿", "亿") 

uMoney = Replace(uMoney, "零万", "万") 

uMoney = Replace(uMoney, "亿万", "亿") 

uMoney = Replace(uMoney, "零元", "元")

uMoney = Replace(uMoney, "零整", "整")



End Function

%>



<%

response.write uMoney(907000.00)

%>