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)
조회 : 4,279   추천 : 0   비추천 : 0  
amt = "500,000,000"

Dim unit1(10)
Dim unit2(2)
Dim unit3(2)

unit1(0) = ""
unit1(1) = "일"
unit1(2) = "이"
unit1(3) = "삼"
unit1(4) = "사"
unit1(5) = "오"
unit1(6) = "육"
unit1(7) = "칠"
unit1(8) = "팔"
unit1(9) = "구"

unit2(0) = "십"
unit2(1) = "백"
unit2(2) = "천"

unit3(0) = "만"
unit3(1) = "억"
unit3(2) = "조"
 
vamt = Replace(amt, ",", "")
xchk = IsNumeric(vamt)

If xchk = True Then
    total = Len(CStr(CDbl(amt)))
    vamt = CDbl(amt)
    rs = ""
    For i = 1 To total
        num = Mid(vamt, i, 1)
        temp1 = (total - i) + 1
        rs = rs & unit1(num)
 
        If num <> 0 And i <> total Then
            If Len(Left(vamt, (total - i) + 1)) Mod 4 = 0 Then rs = rs & unit2(2)
            If Len(Left(vamt, (total - i) + 1)) Mod 4 = 3 Then rs = rs & unit2(1)
            If Len(Left(vamt, (total - i) + 1)) Mod 4 = 2 Then rs = rs & unit2(0)
        End If
 
        If temp1 = 5 And Right(rs, 1) <> unit3(2) And Right(rs, 1) <> unit3(1) Then rs = rs & unit3(0)
        If temp1 = 9 And Right(rs, 1) <> unit3(2) Then rs = rs & unit3(1)
        If temp1 = 13 Then rs = rs & unit3(2)
 
    Next
 
    rs = rs & "원"
 
    'msgbox
    response.write  "input : " & amt & vbCr & "output : " & rs
Else
    'unloadrpt  "금액을 확인해주세요"
    response.write "금액을 확인해주세요"
End If

 

 
 

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