• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




[vb6.0/vba] [vb6.0/vba] 숫자를 한글 또는 한자로 변환하는 법

하나를하더라도최선을
2021.01.30 10:27 77 0

본문



 출처: VBA6- 숫자를 한글 또는 한자로 변환하는 법

Public Function ReadNum(Num, ReadType)
    Dim L, k, i, j, n, v As Integer
    Dim Tg1, Tg2, Tg3 As Variant
    Dim g1, g2, g3 As Integer
    Dim Ans As String
    
 
If ReadType = 1 Then
'        Tg1 = Array("", "壹", "貳", "參", "四", "五", "六", "七", "八", "九")
        Tg1 = Array("""1""2""3""4""5""6""7""8""9")
        Tg2 = Array("""拾""百""千")
        Tg3 = Array("""萬""億""兆")
    Else
'        Tg1 = Array("", "일", "이", "삼", "사", "오", "육", "칠", "팔", "구")
        Tg1 = Array("""1""2""3""4""5""6""7""8""9")
'        Tg2 = Array("", "십", "백", "천")
        Tg2 = Split(Space(4), Space(1))
        Tg3 = Array("""만""억""조")
    End If
 
 
    L = Len(Num) '숫자의 길이
    
    For i = 1 To L
        j = L - i + 1
        n = Mid(Num, j, 1)
        g2 = 0
        g3 = 0
  
        If n > 0 Then
            g2 = (i - 1) Mod 4
        End If
    
        If i Mod 4 = 1 Then
            If j - 3 > 1 Then
                v = Mid(Num, j - 34)
            Else
                v = Mid(Num, 1, j)
            End If
            
            If v > 0 Then
                g3 = i / 4
            End If
 
        End If
        Ans = Tg1(n) + Tg2(g2) + Tg3(g3) + Ans
    Next i
    ReadNum = Ans
End Function




댓글목록 0

등록된 댓글이 없습니다.