vb6.0/vba [vb6.0/vba] 숫자를 한글 또는 한자로 변환하는 법
페이지 정보
본문
출처: 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 - 3, 4)
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
- 이전글[vba] WorkSheet가 속한 WorkBook의 파일경로 21.02.12
- 다음글[vb6.0/vba] 한글을 자음 모음으로 나누기 + 합치기 21.01.30
댓글목록
등록된 댓글이 없습니다.