Function chang_money(money)
dim num1 ' ÇÑ±Û ¼ýÀÚ ¹è¿
dim num2 ' ÇÑ±Û ¼ýÀÚ ´ÜÀ§ ¹è¿
dim posNoLevel ' ÇÑ±Û ¼ýÀÚ ´ÜÀ§ Ãâ·Â À§Ä¡
dim tempNo ' ÇÑ±Û ¼ýÀÚ ÇöÀç ´ÜÀ§ Á¶¸³¿ë
dim strNo ' ÇÑ±Û ¼ýÀÚ Àüü Á¶¸³¿ë
dim cntNo ' º¯È¯ÇÒ ¼ýÀÚÀÇ ±æÀÌ
dim posNo ' º¯È¯ÇÒ ¼ýÀÚÀÇ ÇöÀç º¯È¯ À§Ä¡
num1 = Array("", "ÀÏ", "ÀÌ", "»ï", "»ç", "¿À", "À°", "Ä¥", "ÆÈ", "±¸")
num2 = Array("", "½Ê", "¹é", "õ", "¸¸", "½Ê", "¹é", "õ", "¾ï", "½Ê", "¹é", "õ", "Á¶", "½Ê", "¹é", "õ", "°æ")
cntNo = Len(money)
' ¼ýÀÚ°¡ 0 ÀÏ °æ¿ì
if money = 0 then
strNo = "¿µ"
else
strNo = ""
posNoLevel = 0
posNo = cntNo
do
mo = Cint( Mid(no, posNo, 1) )
' ³ª¸ÓÁö °ªÀÌ 0 ÀÌ ¾Æ´Ò °æ¿ì
if 0 < mo then
tempNo = num1(mo)
tempNo = tempNo & num2(posNoLevel)
strNo = tempNo & strNo
else
' ³ª¸ÓÁö °ªÀÌ 0 ÀÌ¸é¼ 10000 ´ÜÀ§À϶§(¸¸, ¾ï, ..)
if (posNoLevel Mod 4) = 0 then
strNo = num2(posNoLevel) & strNo
end if
end if
posNoLevel = posNoLevel + 1
posNo = posNo - 1
loop while 0 < posNo
end if
chang_money = strNo
End Function