[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(..
2021. 1. 30.
[vb6.0/vba] 한글을 자음 모음으로 나누기 + 합치기
출처: 한글을 자음 모음으로 나누기 + 합치기 Function fnName(inName As String) As String Dim 초성 As Variant, 중성 As Variant, 종성 As Variant Dim vr() As Variant Dim i As Integer, j As Integer, n As Long, k1 As Integer, k2 As Integer, k3 As Integer 초성 = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") 중성 = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅘ", "ㅙ", "..
2021. 1. 30.
[vb6.0/vba] 한글을 발음대로 영어로 변환(한글이름 영문표기)
Function Ename(T$) Dim cho() As Variant, moum() As Variant, jong() As Variant cho() = Array("g", "kk", "n", "d", "tt", "r", "m", "b", "pp", "s", "ss", "", "j", "jj", "ch", "k", "t", "p", "h") moum() = Array("a", "ae", "ya", "yae", "eo", "e", "yeo", "ye", "o", "wa", "wae", "oe", "yo", "u", "wo", "we", "wi", "yu", "eu", "ui", "i") jong() = Array("", "k", "kk", "k", "n", "n", "n", "t", "l", "l", "l..
2021. 1. 30.