下面跟大家分享2種不同函式的實現方式。
asp將數字轉中文數字金額的函式一
程式設計客棧佰拾萬仟佰拾元角分釐毫"
checkp=instr(thenumber,".")'判斷是否含有小數字
if checkp<>0 then
thenumber=replace(thenumber,".","")'去除小數字
end if
length=len(thenumber) '取得資料長度
redim one(length-1)'重新定義陣列大小
redim onestr(length-1)'重新定義陣列大小
for i=0 to length-1
one(i)=mid(thenumber,i+1,1) '迴圈取得每一位的數字
one(i)=mid(string1,one(i)+1,1)'迴圈取得數字對應的大寫
if checkp=0 then '不含有小數的資料其數字對應的單位
onestr(i)=mid(string2,14-length+i,1)
else '含有小數的資料其數字對應的單位
onestr(i)=mid(string2,15-length+i+len(thenumber)-checkp,1)
end if
one(i)=one(i)&onestr(i)'將數字與單位組合
next
money=replace(join(one)," ","") '取得陣列中所有的元素www.cppcns.com，並連線起來
money=replace(money,"零元","元")
money=replace(money,"零萬","萬")
money=replace(money,"零億","億")
money=replace(money,"零仟","零")
money=replace(money,"零佰","零")
money=replace(money,"零拾","零")
do while not instr(money,"零零")=0
money=replace(money,"零零","零")
loop
' response.write money '顯示結果
end function
response.write money(8200001)
%>
asp阿拉伯數字轉中文數字
www.cppcns.comion chnumstr(num)
num=int(abs(num))
strlen=len(num)
for i=1 to strlen
select case mid(num,i,1)
case 1:chnum="一":case 2:chnum="二":case 3:chnum="三"
case 4:chnum="四":case 5:chnum="五"
case 6:chnum="六":case 7:chnum="七":case 8:chnum="八"
case 9:chnum="九":case 0:chnum="零"
end select
chnumstr=chnumstr&chnum
if i=strlen-1 and mid(num,i,1)<>0 then chnumstr=chnumstr&"十"
if i=strlen-2 and mid(num,i,1)<>0 then chnumstr=chnumstr&"百"
if i=strlen-3 and mid(num,i,1)<>0 then chnumstr=chnumstr&"千"
if i=strlen-4 and mid(num,i,1)<>0 then chnumstr=chnumstr&"萬"
if i=strlen-5 and mid(num,i,1)<>0 then chnumstr=chnumstr&"十" oxntntbaz
if i=strlen-6 and mid(num,i,1)<>0 then chnumstr=chnumst程式設計客棧r&"百"
if i=strlen-7 and mid(num,i,1)<>0 then chnumstr=chnumstr&"千"
if i=strlen-8 and mid(num,i,1)<>0 then chnumstr=chnumstr&"萬"
next
if left(chnumstr,1)="一" then chnumstr=right(chnumstr,len(chnumstr)-1)
if right(chnumstr,1)="零" then chnumstr=left(chnumstr,len(chnumstr)-1)
end function
response.write chnumstr("84221213")
%>
數字轉中文數字大寫
做財務報表時常需要將金額轉化中文數字大寫，有點坑。author qzc createdate 2015年6月22日 下午6 08 20 version 1 類 介面 主要功能 public class numbertocn 漢語中貨幣單位大寫，這樣的設計類似於佔位符 private static f...
數字金額轉中文大寫金額
用來將數字金額轉化成中文大寫的金額 param value return public static string changetobig double value 段內位置表示 char vunit 段名表示 char digit 數字表示 decimalformat df new decimal...
數字轉中文大寫金額
不知道大家有沒有遇到需要將數字轉成中文大寫的需要，如下圖 這是轉換的 有需要的的ctr c吧，不謝。public class publicconvert private static string ls dw zh private static string num dw private stati...