ASP阿拉伯数字转中文数字

################################


函数名：阿拉伯数字转中文数字函数


################################


function 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&"十"


if i=strlen-6 and mid(num,i,1)<>0 then chnumstr=chnumstr&"百"


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