人民币小写转换为大写函数
2007-01-23 15:08
357 查看
人民币小写转换为大写
<script language=javascript>
mymoney=window.prompt("请输入金额:");
</script>
<script language=vbs>
function moneych(aa)
dim str(9)
str(0)="零"
str(1)="壹"
str(2)="贰"
str(3)="叁"
str(4)="肆"
str(5)="伍"
str(6)="陆"
str(7)="柒"
str(8)="捌"
str(9)="玖"
aa=aa
hh=formatnumber(aa,2,-1)
aa=replace(hh,".","")
aa=replace(aa,",","")
for i=1 to len(aa)
s=mid(aa,i,1)
mynum=str(s)
select case(len(aa)+1-i)
case 1: k= mynum&"分"
case 2: k= mynum&"角"
case 3: k= mynum&"元"
case 4: k= mynum&"拾"
case 5: k= mynum&"佰"
case 6: k= mynum&"仟"
case 7: k= mynum&"万"
case 8: k= mynum&"拾"
case 9: k= mynum&"佰"
case 10: k= mynum&"仟"
end select
m=m&k
next
moneych=m
end function
alert(mymoney&" 转换为大写是:"&moneych(mymoney))
</script>
<script language=javascript>
mymoney=window.prompt("请输入金额:");
</script>
<script language=vbs>
function moneych(aa)
dim str(9)
str(0)="零"
str(1)="壹"
str(2)="贰"
str(3)="叁"
str(4)="肆"
str(5)="伍"
str(6)="陆"
str(7)="柒"
str(8)="捌"
str(9)="玖"
aa=aa
hh=formatnumber(aa,2,-1)
aa=replace(hh,".","")
aa=replace(aa,",","")
for i=1 to len(aa)
s=mid(aa,i,1)
mynum=str(s)
select case(len(aa)+1-i)
case 1: k= mynum&"分"
case 2: k= mynum&"角"
case 3: k= mynum&"元"
case 4: k= mynum&"拾"
case 5: k= mynum&"佰"
case 6: k= mynum&"仟"
case 7: k= mynum&"万"
case 8: k= mynum&"拾"
case 9: k= mynum&"佰"
case 10: k= mynum&"仟"
end select
m=m&k
next
moneych=m
end function
alert(mymoney&" 转换为大写是:"&moneych(mymoney))
</script>
相关文章推荐
- 【Oracle】函数实现:人民币小写转换成发票大写方式
- 函数实现:人民币小写转换成发票大写方式
- Oracle函数实现:人民币小写转换为发票大写
- 真正正确的人民币 小写 大写 转换算法
- [ASP]人民币小写转换为大写
- 人民币小写转换为大写
- MSSql 自定义函数实现小写金额转换成大写(最高13位不包括小数点后两位)
- 人民币小写转换为大写
- 人民币小写转换为大写
- 【叶子函数分享十八】人民币小写金额转大写
- 巧妙转换 让Excel人民币小写变大写
- js将人民币小写金额转换为大写
- .NET把小写数字金额转换成大写人民币金额的两种算法
- 人民币小写转换为大写
- 人民币小写转换为大写
- 用三种语言写的人民币小写转换大写的小程序
- 【php数组 函数详解】array_change_key_case将数组的键转换为大写或小写
- "黑马程序员“将小写金额转换成人民币大写金额
- 编写一个程序,读取键盘输入,直到遇到@符号为止,并回显输入(数字除外),同时将大写字符转换为小写,将小写字符转换为大写(别忘了cctype函数系列)
- 人民币金额由阿拉伯数值转换成汉字大写数值的函数