ASP > Tip&Tech > 숫자를 한글로 . 금액을 한글로 표시
 
ASP
Library
Tip&Tech
Q&A
태요닷넷 Asp, Asp.net
Tip&Tech
  HOME > ASP > Tip&Tech
 
작성일 : 11-06-21 10:12
숫자를 한글로 . 금액을 한글로 표시
 글쓴이 : 덩벙이 (211.♡.155.10)
조회 : 5,140   추천 : 0   비추천 : 0  

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


 
 

Total 11
번호 제   목 글쓴이 날짜 추천 비추천 조회
11 asp 배열, print_r , print_r_2 배열 키와 값 찍어주는 함수 덩벙이 06-22 0 0 5181
10    asp 배열, print_r , print_r_2 배열 키와 값 찍어주는 함수 덩벙이 06-22 0 0 9597
9 숫자를 한글로 . 금액을 한글로 표시 덩벙이 06-21 0 0 4315
8    숫자를 한글로 . 금액을 한글로 표시 덩벙이 06-21 0 0 5141
7 php asp 기본사항 덩벙이 06-20 0 0 5086
6 ASP / PHP Cross Reference 덩벙이 09-28 0 0 4315
5 ( php -> exit; / asp -> response.end / jsp return )… 덩벙이 11-12 0 0 4315
4 Encoding and Decoding base64 with (ASP,PHP,JSP) 암호화 덩벙이 09-10 0 0 4314
3 윈도우 XP IIS에서 접속자 수 늘리는 방법 (403.9에러) 덩벙이 10-20 0 0 4314
2 Encoding and Decoding base64 with (ASP,PHP,JSP) 암호화 덩벙이 09-10 0 0 4314
1 asp 게시판 리스트에서 체크박스를 이용하여 글 등록 덩벙이 08-31 0 0 15975
 
개인홈페이지 덤벙닷컴은 프로그래머와 디자이너위한 IT커뮤니티 공간입니다.
Copyright ⓒ www.dumbung.com. All rights reserved.