人民币小写转换为大写

来源：互联网发布：电脑打字软件哪个好编辑：程序博客网时间：2024/04/30 22:51

人民币小写转换为大写

<%'****人民币大小写转换格式****dim str(9)str(0)="零"str(1)="壹"str(2)="贰"str(3)="叁"str(4)="肆"str(5)="伍"str(6)="陆"str(7)="柒"str(8)="捌"str(9)="玖"aa=Request.form("source")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 selectm=m&knext%> <html><head><title>数字转换</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><!--Elseif(s=".") thenn=mi=i+2for j=i to len(aa)s=mid(aa,i,1)mynum=str(s)select case(len(aa)+1-i)case 1: p= mynum&"分"case 2: p= mynum&"角"end selectm=m&pnext--><body bgcolor="#FFFFFF"><form method="post" name="forma"><input type="text" name="source" value="<%=hh%>">=<input type="text" name="result" value="<%=m%>" size="40"><input type="submit" name="Submit" value="提交 " ></form></body></html>