News Contents
信息中心

ASP把數字小寫轉換為大寫

發表日期:2020/2/20      瀏覽次數:

<%

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 = "jj零" 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%>


盛大建站承接個人、公司、企業的網站建設、網頁設計、網店制作、獨立商城制作、外貿網站制作,也承接同行介紹的業務,歡迎聯系!
本站承接主要業務如下:
1、提供免備案虛擬主機(網站空間),有獨立國內服務器、高速美國服務器、香港服務器、韓國服務器、日本服務器,>> http://www.fuanxx.com
2、網站建設:個人網店制作、企業建站、公司網站、新聞、下載等;論壇、博客網站搭建,承接外貿英文站制作
3、承接阿里巴巴、京東、淘寶、天貓等的商品數據采集
4、網站防釣魚,可以過360、QQ、搜狗、金山、微信攔截
5、要就發IP網站限制訪問系統,防止同行抄襲并保障海外客戶訪問不受影響,>> http://www.198ip.com
  下一篇:沒有了!
十年如一日,我們專注于提供高品質 定制網站建設服務!
您的信任,我們的責任,期待與您的合作!
广西11选5技巧 股票配资管理软件 3d试机号走势图彩宝网电脑版 上海时时乐开奖号查询 时时彩专业版手机下载 投资理财产品排行榜k 快乐10分助手 手机版 斗地主玩法教程 浙江快乐12爱彩乐 时时彩软件排行 福建省11选5的走 何为股票融资余额 江苏十一选五走势图预测 上海快三秒的电话 真钱棋牌游戏20元提现 13284 排列5 北京十一选五预测推荐