Function roundUp(x)
   If x > Int(x) then
    roundup = Int(x) + 1
   Else
    roundup = x
   End If 

End Function

Function PadDigits(n, length)
   PadDigits = Right(String(length,"0") & n, length)
End Function

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(money, 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