人民币数字转换为文字大写程序

稿源：互联网 2022-04-02 21:43:14 点击： 1339 撤稿纠错

输入数字后，点击按钮立即显示大写。

以下讨论的是和转换相关的人民币数字转换为文字大写程序教程文章，内容是本站精心挑选整理的教程，希望对广大的网友给到帮助,下面是详细内容：

脚本代码(For Alixixi.com)如下:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<meta name="keywords" content="站长,网页特效,网页特效代码,js特效,js脚本,脚本,广告代码,zzjs,zzjs.net,www.zzjs.net,站长特效 网" />
<meta name="description" content="www.zzjs.net,站长特效网，站长必备js特效及广告代码。大量高质量js特效，提供高质量广告代码下载,尽在站长特效网" />
<title>网页特效 人民币数字金额转换为大写金额 站长特效网欢迎您。</title>
<bgsound id="www_zzjs_net" src="" loop="1">
<SCRIPT LANGUAGE="VBScript">
dim hj,hji
sub document_onkeypress()
if window.event.srcelement.id="num" and window.event.keycode="13" then
call retu_cn()
end if
end sub
sub window_onload()
document.fmSubmit.t1.focus()
end sub
SUB retu_cn()
dim n,m_hj,s,ch,ch2,ch3,num
num=Replace(trim(document.fmSubmit.t1.value),",","",1,-1,1)
if num="" then
MsgBox "您还没有输入金额！"
document.fmSubmit.t1.focus()
exit sub
End If
if IsNumeric(num)=False then
MsgBox "您输入的不是金额！"
document.fmSubmit.t1.focus()
exit sub
End If
n=FormatNumber(num,2)
num=n
n=Replace(n,",","",1,-1,1)
If len(n)>15 Then
MsgBox "金额必须小于千亿！"
document.fmSubmit.t1.focus()
exit sub
End If
hj=space(0)
s="840"
ch="壹贰叁肆伍陆柒捌玖"
ch2="仟佰拾 "
ch3="亿万元"
for x=1 to 3
m=cstr(int(n/10^FormatNumber(mid(s,x,1),0,-1)))
m=space(4-len(m))+m
m_hj=space(0)
if m<>" 0" then
for y=1 to 4
if mid(m,y,1)<>space(1) and mid(m,y,1)<>"0" then
m_hj=trim(m_hj+mid(ch,FormatNumber(mid(m,y,1),0,-1),1)+mid(ch2,y,1))
else
if mid(m,y,1)=space(1) or mid(m,y,1)="0" then
m_hj=m_hj
if right(m_hj,1)="零" then
m_hj=m_hj+space(0)
else
m_hj=m_hj+"零"
end if
else
m_hj=m_hj
end if
end if
next
if right(m_hj,1)="零" then
m_hj=mid(m_hj,1,len(m_hj)-1)+mid(ch3,x,1)
if x=3 then
m_hj=m_hj+space(0)
else
m_hj=m_hj+"零"
end if
else
m_hj=m_hj+mid(ch3,x,1)
end if
if right(hj,1)="零" and mid(m_hj,1,1)="零" then
hj=hj+mid(m_hj,2,len(m_hj)-1)
else
hj=hj+m_hj
end if
else
if x=3 then
if right(hj,1)="零" then
if trim(hj)="零" then
hj=hj+space(0)
else
hj=mid(hj,1,len(hj)-1)+"元"
end if
else
if trim(hj)="零" then
hj=hj+space(0)
else
hj=hj+"元"
end if
end if
else
if right(hj,1)="零" then
hj=hj+space(0)
else
hj=hj+"零"
end if
end if
end if
if n-int(n)=0 then
n=n-int(FormatNumber(m,0,-1))*10^int(FormatNumber(mid(s,x,1),0,-1))
else
tt=FormatNumber("0."+mid(cstr(n),Instr(1,n,".")+1,2),2)
n=int(n)
n=n-int(FormatNumber(m,0,-1))*10^int(FormatNumber(mid(s,x,1),0,-1))
n=n+tt
end if
next
m=mid(cstr(n),2,2)
if trim(len(m))<>2 then
m=m+"0"
end if
if n*100=0 then
if left(hj,1)="零" then
if right(hj,1)="零" then
hj=hj+"元整"
else
hj=mid(hj,2,len(hj)-1)+"整"
end if
else
if right(hj,1)="零" then
hj=mid(hj,1,len(hj)-1)+"整"
else
hj=hj+"整"
end if
end if
else
if right(hj,1)="零" then
hj=mid(hj,1,len(hj)-1)
else
hj=hj
if mid(m,1,1)="0" or mid(m,1,1)=space(1) then
hj=hj+"零"
else
hj=hj+mid(ch,FormatNumber(mid(m,1,1),0,-1),1)+"角"
end if
end if
if mid(hj,1,1)="零" then
hj=mid(hj,2,len(hj)-1)
else
hj=hj
end if
if mid(m,2,1)="0" then
hj=hj+"整"
else
hj=hj+mid(ch,FormatNumber(mid(m,2,1),0,-1),1)+"分"
end if
end if
if num=".00" then
document.fmSubmit.t1.value="0.00"
else
document.fmSubmit.t1.value=num
end if
document.fmSubmit.t2.value=""
hji=1
call read()
End Sub
SUB read()
MyVar=mid(hj,hji,1)
document.fmSubmit.t2.value=document.fmSubmit.t2.value+MyVar
Select Case MyVar
Case "零" document.all("www_zzjs_net").src="wav/0.wav"
Case "壹" document.all("www_zzjs_net").src="wav/1.wav"
Case "贰" document.all("www_zzjs_net").src="wav/2.wav"
Case "叁" document.all("www_zzjs_net").src="wav/3.wav"
Case "肆" document.all("www_zzjs_net").src="wav/4.wav"
Case "伍" document.all("www_zzjs_net").src="wav/5.wav"
Case "陆" document.all("www_zzjs_net").src="wav/6.wav"
Case "柒" document.all("www_zzjs_net").src="wav/7.wav"
Case "捌" document.all("www_zzjs_net").src="wav/8.wav"
Case "玖" document.all("www_zzjs_net").src="wav/9.wav"
Case "拾" document.all("www_zzjs_net").src="wav/10.wav"
Case "佰" document.all("www_zzjs_net").src="wav/b.wav"
Case "仟" document.all("www_zzjs_net").src="wav/q.wav"
Case "万" document.all("www_zzjs_net").src="wav/w.wav"
Case "亿" document.all("www_zzjs_net").src="wav/y.wav"
Case "元" document.all("www_zzjs_net").src="wav/yuan.wav"
Case "分" document.all("www_zzjs_net").src="wav/fen.wav"
Case "角" document.all("www_zzjs_net").src="wav/jiao.wav"
Case "整" document.all("www_zzjs_net").src="wav/z.wav"
Case else hji=0
document.all("www_zzjs_net").src=""
exit sub
End Select
hji=hji+1
setTimeout "read",500
End Sub
</script>
</head>
<body>
<a href="http://www.zzjs.net/">站长特效网</a>,站长必备的高质量网页特效和广告代码。zzjs.net，站长js特效。<hr>

<form id="fmSubmit" name="fmSubmit" method="post">
金额（数字）：<input type="text" name="T1" size="20" id="num">
<input type="button" onclick="retu_cn()" value="转换为大写金额" name="B1"><br>
大写金额为：<input type="text" name="T2" size="50" readonly>
</form>
</body>
</html>

关于人民币数字转换为文字大写程序的内容写到这里就结束啦，您可以收藏本页网址https://js.alixixi.com/a/2010091564685.shtml方便下次再访问哦。

·上一篇： 记录访客最近浏览网页js代码
·下一篇： 左侧隐藏QQ客服代码

人民币数字转换为文字大写程序

文章分类LIST >>返回首页

最新游戏

最新新闻