姓名學及數字能量學交流群:322612093    IT維修銷售交流群:43407133  點此處進入二維碼掃描
 
 
服務熱線:0816-2841263 13990148575
QQ:479247963
設為首頁  加入收藏  繁體中文
 
今天是:2020-10-22 星期四
 

企業名片  會員登錄  在線算命  擇吉皇歷  祈愿祝福  打小人  百度搜索  百家姓  手機號歸屬  取名策劃  成功案例  問題解答 

11 本站公告: 買軟件送軟件活動開始啦!詳情QQ咨詢:479247963   歡迎免費下載精科系列軟件   精科網站建設  
22 產品檢索 關鍵字: 33
推薦軟件: 精科姓名博士-專業版 | 精科姓名博士-標準版 | 精科維修管理系統 | 精科維修銷售系統 | 精科姓名博士-精裝版 | 精科裝機配置系統 | 精科洗車管理系統
福利双色球开奖结果双今天 精科軟件->新聞中心->技術文章->asp數值到大寫金額轉換源代碼
模塊導航
 
產品搜索
 
產品列表
產品搜索
 
當前位置:網站首頁 > 新聞中心 > 技術文章
asp數值到大寫金額轉換源代碼
發布者:admin 發布時間:2013-4-17 閱讀:6150次 【字體:

以下代碼經精科測試,無錯,可用

<%
'//調用過程
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 = "分角元拾佰仟萬拾佰仟億拾佰仟萬"

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 = "萬" Or n2 = "元" Or n1 = "零" Then
            Do While Right(hz, 1) = "零"
            hz = Left(hz, Len(hz) - 1)
            Loop
        End if
        if (n2 = "億" Or (n2 = "萬" 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
%>

 
 

打印本頁 || 關閉窗口

有償友情鏈接:
精科軟件  紅警電腦維修  期待你的加入   期待你的加入  期待你的加入

公司名稱:綿陽精科軟件開發有限公司 關鍵詞:精科軟件
地址:四川省綿陽市經開區涪濱路北段9號 郵編:621000 微信:jk12689
電話:0816 - 2841263 手機:13990148575 Email:[email protected] QQ:479247963
Copyright © 2000-2020 綿陽精科軟件開發有限公司   蜀ICP備11007537號
  后臺管理入口