台灣最大程式設計社群網站
線上人數
696
 
會員總數:245981
討論主題:189559
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 阿拉伯數字轉大寫國字
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
阿拉伯數字轉大寫國字
價值 : 0 QP  點閱數:421 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員

<html>
<body bgcolor="#FFFFFF">
<%
function intToChinese(gInt)
intLen=Len(gInt)
for i=intLen to 1 step -1
chStr=Left(gInt,1)
select case chStr
case 0 : str=str & "零"
case 1 : str=str & "壹"
case 2 : str=str & "貳"
case 3 : str=str & "參"
case 4 : str=str & "肆"
case 5 : str=str & "伍"
case 6 : str=str & "陸"
case 7 : str=str & "柒"
case 8 : str=str & "捌"
case 9 : str=str & "玖"
end select
select case i
case 2,6 : str=str & "拾"
case 3,7 : str=str & "佰"
case 4,8 : str=str & "仟"
case 5 : str=str & "萬"
case 9 : str=str & "億"
end select
gInt=Right(gInt,Len(gInt)-1)
next
intToChinese=str
end function

intYY=123456789
response.write intYY & ""
response.write intToChinese(intYY)
%>
</body>
</html>

本篇文章發表於2002-07-03 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.