阿拉伯數(shù)字轉換成大寫中文數(shù)字

2014/8/6 12:29:261452 閱讀

以下代碼來自csdn，收藏備用

注：以下代碼支持整數(shù)，億以內



response.write b(a("321570002"))&"---321570002"
response.write b(a("0002"))&"---0002"
response.write b(a("70002"))&"---70002"
response.write b(a("6500"))&"---6500"

Function b(tempstr)
  if left(tempstr,2)="一十" then
  tempstr= "十" & right(tempstr,len(tempstr)-2)
  end if
  b=tempstr
end Function

Function a(x)
  Dim xlenght, xunit,xstr, x1, x2
  xlenght=len(x)
  if xlenght>8 then  
  x1=left(x,xlenght-8)
  x2=right(x,8)
  xunit="億"
  if a(x1)="" then
  a=a(x2)
  else
  a=a(x1) & xunit & a(x2)
  end if
  elseif xlenght>4 then
  x1=left(x,xlenght-4)
  x2=right(x,4)
  xunit="萬"
if a(x1)="" then
  a=a(x2)
  else
  a=a(x1) & xunit & a(x2)
  end if
  elseif xlenght=4 then
  xstr=""
  if int(left(x,1))=0 then
  xstr=xstr & "零"
  else
  xstr= xstr &? CovNumber(left(x,1)) & "千"
  end if
if int(mid(x,2,1))=0 then
  xstr= xstr & "零"
  else
  xstr= xstr & CovNumber(mid(x,2,1)) & "百"
  end if
if int(mid(x,3,1))=0 then
  xstr=xstr & "零"
  else
  xstr=xstr & CovNumber(mid(x,3,1)) & "十"
  end if
xstr=xstr & CovNumber(right(x,1))
  while instr(xstr,"零零")>0
  xstr=replace(xstr,"零零","零")
  wend
if xstr="零" then
  xstr=""
  elseif right(xstr,1)="零" then
  xstr=left(xstr,len(xstr)-1)
  end if
  a=xstr
  elseif xlenght=3 then
  xstr=""
  if int(left(x,1))=0 then
  xstr=xstr & "零"
  else
  xstr= xstr & CovNumber(left(x,1)) & "百"
  end if
  if int(mid(x,2,1))=0 then
  xstr= xstr & "零"
  else
  xstr=xstr & CovNumber(mid(x,2,1)) & "十"
  end if
  xstr=xstr & CovNumber(right(x,1))
  while instr(xstr,"零零")>0
 xstr=replace(xstr,"零零","零")
 wend
if xstr="零" then
 xstr=""
elseif right(xstr,1)="零" then
 xstr=left(xstr,len(xstr)-1)
end if
a=xstr
 elseif xlenght=2 then
 xstr=""
 if int(left(x,1))=0 then
 xstr=xstr & "零"
else
 xstr=xstr & CovNumber(left(x,1)) & "十"
end if
xstr=xstr & CovNumber(right(x,1))
while instr(xstr,"零零")>0
 xstr=replace(xstr,"零零","零")
 wend
if xstr="零" then
 xstr=""
elseif right(xstr,1)="零" then
 xstr=left(xstr,len(xstr)-1)
end if
a=xstr
 elseif xlenght=1 then
 if int(x)=0 then
 xstr="零"
else
 xstr=CovNumber(x)
end if
a=xstr
 end if
End Function
Function CovNumber(x)
 select case x
 case "1"
 CovNumber="一"
 case "2"
 CovNumber="二"
 case "3"
 CovNumber="三"
 case "4"
 CovNumber="四"
 case "5"
 CovNumber="五"
 case "6"
 CovNumber="六"
 case "7"
 CovNumber="七"
 case "8"
 CovNumber="八"
 case "9"
 CovNumber="九"
 case else
 CovNumber=""
 end select
End Function

下一條：XP下HTTP的403.9錯誤-禁止訪問：連接的用戶過多

上一條：php防止模板文件被盜方法IIS