人民币大小写自动转换

2009-09-21 05:38:50 248 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

js 只能输入两位小数并且转人民币大写金额 function inputkeypress(inputobj){ if(!inputobj.value.match(/^\d*?\.?\d*?$/)) inputobj.value=inputobj.t_value; else inputobj.t_value=inputobj.value; if(inputobj.value.match(/^(?:\d+(?:\.\d+)?)?$/) 阅读详情

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

...全文

Excel VBA实现人民币大写转换：自定义函数封装与报销单应用在财务处理中，金额转人民币大写是高频刚需。Excel默认的数字格式无法满足财务票据要求的“元角分”、“零”与“整”等规范写法，而网络流传的长公式维护困难且容易因括号错位而失效。通过VBA自定义函数，可以将转换逻辑封装为可复用的RmbUpper函数，并制作成Excel加载项，一次配置、随处调用，彻底摆脱手动输入大写金额的繁琐。该方案在报销单、收款单、采购合同等场景中尤为实用，能自动联动总金额，避免大小写不一致的问题。文中还剖析了精度处理、银行家舍入、#NAME?错误以及加载项被禁用等高频故障，为财务人员提供一阅读详情

weilin_ai

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

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)

%>

lzp4881 2009-09-21

打赏
举报

http://hi.baidu.com/lz0830/blog/item/1ede7a51a5c4f22242a75bb2.html
到万亿位的asp小写金额转大写函数

zzhqiao 2009-09-21

打赏
举报

http://topic.csdn.net/t/20021111/10/1165649.html这里有很多。

春天的气息 2009-09-21

打赏
举报

用js写啦，代码网上很多的，搜一下就找到了。

人民币大小写自动转换

相关推荐