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

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

捐贈 VP 給 站務人員
轉貼

其他自己修改

<HTML>

<HEAD>

<TITLE> New Document </TITLE>

</HEAD>

<Script Language=vbscript>

'sub inputdallor()

' dallor = inputbox("請輸入金額:")

'end sub

sub DispResult()

sDallor = cstr(form.dallor.value)

chDallor = array("", "拾", "佰", "仟", "萬","拾","佰", "仟","億","拾","佰", "仟","兆")

chB = array("", "萬","億","兆")

for i= 1 to len(sDallor) step 1

if mid(sDallor, i, 1)<>"0" then

xx = xx & mid(sDallor, i, 1) & chDallor(len(sDallor)-i) '&"萬"

else

if right(xx, 1)<>"零" then

If ((len(sDallor)-i) mod 4) = 0 then

xx = xx & chB( ( len(sDallor) - i) \ 4 )

else

xx = xx & "零"

End If

else

If ((len(sDallor)-i) mod 4) = 0 then

'msgbox "i = " & i & " xx=" & xx

xx= mid(xx, 1, len(xx)-1) & chB( ( len(sDallor) - i) \ 4 )

End If

end if

end if

next

if right(xx, 1)="零" then xx = mid(xx,1,len(xx)-1)

xx = replace( xx, "1", "壹")

xx = replace( xx, "2", "貳")

xx = replace( xx, "3", "參")

xx = replace( xx, "4", "肆")

xx = replace( xx, "5", "伍")

xx = replace( xx, "6", "陸")

xx = replace( xx, "7", "柒")

xx = replace( xx, "8", "捌")

xx = replace( xx, "9", "玖")

form.result.value = xx & "元整"

end sub

</Script>

<BODY>

<FORM METHOD=POST ACTION="" name="form">

阿拉伯數字<INPUT TYPE="text" NAME="dallor">

<INPUT TYPE="button" value="轉換" onclick=DispResult()>

國字金額<INPUT TYPE="text" size=50 NAME="result">

</FORM>

</BODY>

</HTML>
本篇文章發表於2002-05-27 00:00
目前尚無任何回覆
   

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