快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

下载和记娱乐app:将阿拉伯数字转换成汉字数字的函数



将一串数字转成对应的汉字

function convertNumToStr(pNum)

dim oNum,rValue

oNum=pNum:rValue=""

'假如给定的不是合理的数字,则返回空串

if not CheckPattern(oNum,z_PatNum) then

ConvertNumToStr=rValue

exit function

end if

'将数字前面无用的0去掉落

set rLjc=new RegExp

rLjc.Pattern="^0{2,}([^.])"

oNum=rLjc.WordStr(oNum,"1")

rLjc.Pattern="^0{2,}(\.)"

oNum=rLjc.WordStr(oNum,"01")

'将小数点前后部分手开

arrNum=split(oNum,".")

frontNum=arrNum(0)

backNum=""

if ubound(arrNum)>0 then backNum=arrNum(1)

'---- 转换小数点前面的数----

oLen=len(frontNum)

if oLen=1 then '只有一位

rValue=convertNumToCC(frontNum)

elseif oLen=2 then '只有两位

if(mid(frontNum,1,1))"0" then rValue=rValue & convertNumToCC(mid(frontNum,2,1))

else '大年夜于两位的环境

dim curPos,curNum,hasZero

hasZero=false '注解在此前有没有下载和记娱乐app相连接的零

for i=1 to oLen

curPos=oLen-i + 1

curNum=mid(frontNum,i,1)

if cint(curNum)=0 t下载和记娱乐apphen '当前位数为零

hasZero=true

'当当前位为万位或者亿位,则进行处置惩罚

if (curPos -1) mod 4=0 and curPos>4 then

rVa下载和记娱乐applue=rValue & getDigit(curPos)

end if

else '当前位数不是零

if hasZero then

rValue=rValue & "零"

hasZero=false

end if

rValue=rValue & convertNumToCC(curNum) & getDigit(curPos)

end if

next

end if

'转换小数点后面的

if backNum<>"" then

strBack=""

for i=1 to len(backNum)

strBack=下载和记娱乐appstrBack & convertNumToCC(mid(backNum,i,1))

next

rValue=rValue & "点" & strBack

end if

convertNumToStr=rValue

end function

''将一个数字转成对应的汉字

function convertNumToCC(p下载和记娱乐appNum)

select case pNum

case 1:convertNumToCC="一"

case 2:convertNumToCC="二"

case 3:convertNumToCC="三"

case 4:convertNumToCC="四"

case 5:convertNumToCC=" 五"

case 6:convertNumToCC="六"

case 7:convertNumToCC="七"

case 8:convertNumToCC="八"

case 9:convertNumToCC="九"

case 0:convertNumToCC="零"

end select

end function

'根据位数返回对应的汉字

function getDigit(oDigit)

if (oDigit+2) mod 4=0 then

getDigit="十"

elseif (oDigit +1) mod 4=0 then

getDigit="百"

elseif oDigit mod 4=0 then

getDigit="千"

elseif (oDigit -1) mod 4=0 then

if ((oDigit-1)/4) mod 2=0 then

getDigit="亿"

else

getDigit="万"

end if

end if

end function

哈哈,很棒吧。有的时刻(分外是对照正规的环境下),汉字款式好点

您可能还会对下面的文章感兴趣: