<button id="nc8ni"><xmp id="nc8ni"><button id="nc8ni"></button><ins id="nc8ni"><button id="nc8ni"><form id="nc8ni"></form></button></ins>
<button id="nc8ni"><form id="nc8ni"></form></button>
<form id="nc8ni"><xmp id="nc8ni">
<ins id="nc8ni"><button id="nc8ni"></button></ins>
<button id="nc8ni"><xmp id="nc8ni">
<ins id="nc8ni"><form id="nc8ni"><ins id="nc8ni"></ins></form></ins>
<button id="nc8ni"><xmp id="nc8ni">
<button id="nc8ni"><xmp id="nc8ni">
<button id="nc8ni"><form id="nc8ni"><ins id="nc8ni"></ins></form></button><button id="nc8ni"><form id="nc8ni"></form></button>
<button id="nc8ni"><form id="nc8ni"><ins id="nc8ni"></ins></form></button><button id="nc8ni"><xmp id="nc8ni"><button id="nc8ni"></button><form id="nc8ni"><ins id="nc8ni"><form id="nc8ni"></form></ins></form><button id="nc8ni"><xmp id="nc8ni"><ins id="nc8ni"></ins>
<button id="nc8ni"><xmp id="nc8ni"><ins id="nc8ni"></ins><form id="nc8ni"><ins id="nc8ni"><form id="nc8ni"></form></ins></form>
<ins id="nc8ni"><form id="nc8ni"></form></ins>
<button id="nc8ni"><form id="nc8ni"><ins id="nc8ni"></ins></form></button>
<button id="nc8ni"></button>
<button id="nc8ni"></button>
訂閱本欄目 RSS您所在的位置: 深山工作室 > ASP > 正文

asp金額數字轉換為大小寫(xiě)漢字

深山工作室 2012/3/10 15:49:19 深山行者 字體: 瀏覽 13531

<form name="form1" method="post" action="demo.asp">
<input type="text" name="page1num" id="page1num" value="<%=request("page1num")%>">
<input type="submit" name="button" id="button" value="提交">
</form>


<%
dim tmpnum
tmpnum=request("page1num")
response.write rmb(cdbl(tmpnum))
response.end

Function rmb(num)
 num = FormatNumber(num, 2)
 Dim numList
 Dim rmbList
 Dim numLen
 Dim numChar
 Dim numstr
 Dim n
 Dim n1, n2
 Dim hz
 numList = "零壹貳叁肆伍陸柒捌玖"
 rmbList = "分角元拾佰仟萬(wàn)拾佰仟億拾佰仟萬(wàn)"
 If num > 9999999999999.99 Then
  rmb = "超出范圍的人民幣值"
  Exit Function
 End If
 numstr = CStr(num * 100)
 numLen = Len(numstr)
 n = 1
 Do While n <= numLen
  numChar = CInt(Mid(numstr, n, 1))
  n1 = Mid(numList, numChar + 1, 1)
  n2 = Mid(rmbList, numLen - n + 1, 1)
  If Not n1 = "零" Then
   hz = hz + CStr(n1) + CStr(n2)
  Else
   If n2 = "億" Or n2 = "萬(wàn)" Or n2 = "元" Or n1 = "零" Then
    Do While Right(hz, 1) = "零"
    hz = Left(hz, Len(hz) - 1)
    Loop
   End If
   If (n2 = "億" Or (n2 = "萬(wàn)" And Right(hz, 1) <> "億") Or n2 = "元") Then
    hz = hz + CStr(n2)
   Else
    If Left(Right(hz, 2), 1) = "零" Or Right(hz, 1) <> "億" Then
     hz = hz + n1
    End If
   End If
  End If
  n = n + 1
 Loop
 Do While Right(hz, 1) = "零"
  hz = Left(hz, Len(hz) - 1)
 Loop
 If Right(hz, 1) = "元" Then
  hz = hz + "整"
 End If
 rmb = hz
End Function

%>

相關(guān)閱讀
旅行社線(xiàn)路主題默認模板5
旅行社網(wǎng)站管理系統免費版 V2.4
ASP與ACCESS數據庫鏈接代碼
旅行社網(wǎng)站模板默認風(fēng)格10
javascript自動(dòng)獲取Tags關(guān)鍵字
怎樣增加網(wǎng)站外鏈接和注意事項
利用ASP正則提取文章里面的圖片的有效的src地址
asp遠程調用XML
共有0條關(guān)于《asp金額數字轉換為大小寫(xiě)漢字》的評論
發(fā)表評論
正在加載評論......
返回頂部發(fā)表評論
呢 稱(chēng):
表 情:
內 容:
評論內容:不能超過(guò) 1000 字,需審核,請自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)政策法規。
驗證碼: 驗證碼 
網(wǎng)友評論聲明,請自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)政策法規。

您發(fā)布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會(huì )、集體和公民的合法權益;
二、不得發(fā)布國家法律、法規明令禁止的內容;互相尊重,對自己在本站的言論和行為負責;
三、本站對您所發(fā)布內容擁有處置權。

更多信息>>欄目類(lèi)別選擇
百度小程序開(kāi)發(fā)
微信小程序開(kāi)發(fā)
微信公眾號開(kāi)發(fā)
uni-app
asp函數庫
ASP
DIV+CSS
HTML
python
更多>>同類(lèi)信息
ASP中Utf-8與Gb2312編碼轉換亂碼問(wèn)題的解決方法頁(yè)面編碼聲明
asp顯示隨機密碼
通過(guò)阿里云服務(wù)接口獲得ip地址詳細信息
iis點(diǎn)開(kāi)后任務(wù)欄上有顯示,但是窗口看不到的解決辦法
RSA加密解密插件
微軟Encoder加密解密函數
更多>>最新添加文章
抖音直播音掛載小雪花 懂車(chē)帝小程序
javascript獲取瀏覽器指紋可以用來(lái)做投票
火狐Mozilla Firefox出現:無(wú)法載入您的Firefox配置文件 它可能已經(jīng)丟失 或是無(wú)法訪(fǎng)問(wèn) 問(wèn)題解決集合處理辦法
在A(yíng)ndroid、iOS、Windows、MacOS中微信小程序的文件存放路徑
python通過(guò)代碼修改pip下載源讓下載庫飛起
python里面requests.post返回的res.text還有其它的嗎
aliyun阿里云續費域名優(yōu)惠口令(注冊、續費都可以使用)
windows7環(huán)境下安裝配置jdk
更多>>隨機抽取信息
旅行社網(wǎng)站管理系統免費版 V2.4
利用ASP正則提取文章里面的圖片的有效的src地址
一個(gè)select表單移處數據的效果,非常好用。
北京泓源萬(wàn)國咨詢(xún)服務(wù)有限公司
深山網(wǎng)吧留言板系統v4.0
DW設置之后更好用 DreamweaverCS編輯GB2312與UTF-8文件在代碼視圖中點(diǎn)擊鼠標錯位問(wèn)題的解決辦法
亚洲精品456在线|S级爆乳玩具酱国产VIP皮裤|欧美成人精品第一区二区三区|久久永久免费人妻精品我不卡|亚洲欧洲日产无码
<button id="nc8ni"><xmp id="nc8ni"><button id="nc8ni"></button><ins id="nc8ni"><button id="nc8ni"><form id="nc8ni"></form></button></ins>
<button id="nc8ni"><form id="nc8ni"></form></button>
<form id="nc8ni"><xmp id="nc8ni">
<ins id="nc8ni"><button id="nc8ni"></button></ins>
<button id="nc8ni"><xmp id="nc8ni">
<ins id="nc8ni"><form id="nc8ni"><ins id="nc8ni"></ins></form></ins>
<button id="nc8ni"><xmp id="nc8ni">
<button id="nc8ni"><xmp id="nc8ni">
<button id="nc8ni"><form id="nc8ni"><ins id="nc8ni"></ins></form></button><button id="nc8ni"><form id="nc8ni"></form></button>
<button id="nc8ni"><form id="nc8ni"><ins id="nc8ni"></ins></form></button><button id="nc8ni"><xmp id="nc8ni"><button id="nc8ni"></button><form id="nc8ni"><ins id="nc8ni"><form id="nc8ni"></form></ins></form><button id="nc8ni"><xmp id="nc8ni"><ins id="nc8ni"></ins>
<button id="nc8ni"><xmp id="nc8ni"><ins id="nc8ni"></ins><form id="nc8ni"><ins id="nc8ni"><form id="nc8ni"></form></ins></form>
<ins id="nc8ni"><form id="nc8ni"></form></ins>
<button id="nc8ni"><form id="nc8ni"><ins id="nc8ni"></ins></form></button>
<button id="nc8ni"></button>
<button id="nc8ni"></button>