[ASP]<!--ASP将人民币的数字转化成大写表示-->[supfrie] [复制链接]

<!--ASP将人民币的数字转化成大写表示-->
<%
'维护-_-MSN：supfire@hotmial.com-_-QQ:49924212-_-UC:1200199-_-supfire-_-2004年12月'
call Fire(04.13)     '测验 那天我生日04月13号
function Fire(supNum)
dim i,Supfire1,Supfire2,length,checkp '定义变量
dim fireOne(),fireOnestr() '定义数组

Supfire1 = "零壹贰叁肆伍陆柒捌玖"
Supfire2 = "万仟佰拾亿仟佰拾万仟佰拾元角分厘毫"

checkp=instr(supNum,".") '判断是否含有小数位
if checkp<>0 then
supNum=replace(supNum,".","") '去除小数位
end if

length=len(supNum) '取得数据长度
redim fireOne(length-1) '重新定义数组大小
redim fireOnestr(length-1) '重新定义数组大小

for i=0 to length-1

fireOne(i)=mid(supNum,i+1,1) '循环取得每一位的数字
fireOne(i)=mid(Supfire1,fireOne(i)+1,1) '循环取得数字对应的大写

    if checkp=0 then
                    '不含有小数的数据其数字对应的单位
      response.write length1
      fireOnestr(i)=mid(Supfire2,13-length+i+len(supNum)-checkp,1)
      else
                    '含有小数的数据其数字对应的单位
      fireOnestr(i)=mid(Supfire2,15-length+i+len(supNum)-checkp,1)
    end if

fireOne(i)=fireOne(i)&fireOnestr(i)'将数字与单位组合
next

Fire=replace(join(fireOne)," ","") '取得数组中所有的元素，并连接起来
Fire=replace(Fire,"零元","元")
Fire=replace(Fire,"零万","万")
Fire=replace(Fire,"零亿","亿")
Fire=replace(Fire,"零仟","零")
Fire=replace(Fire,"零佰","零")
Fire=replace(Fire,"零拾","零")

do while not instr(Fire,"零零")=0
Fire=replace(Fire,"零零","零")
loop

response.write Fire '显示结果
end function
'维护-_-MSN：supfire@hotmial.com-_-QQ:49924212-_-UC:1200199-_-supfire-_-2004年12月'
%>