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
ASP
조회 : 5,427 
추천 : 0 
비추천 : 0
