Public function getpychar (byval str as string) AS string TMP = 65536 ASC (str) if (tmp> = 45217 and TMP <= 45252) THEN getPychar = "a" elseif (TMP> = 45253 and TMP <= 45760) THEN Getpychar = "b" elseif (TMP> = 45761 and TMP <= 46317) THEN getpychar = "c" elseif (TMP> = 46318 and TMP <= 46825) THETPYCHAR = "D" elseif (TMP> = 46826 and TMP < = 47009) Then getpychar = "e" elseif (tmp> = 47010 and TMP <= 47296) THEN getPychar = "f" elseif (tmp> = 47297 and tmp <= 47613) THETPYCHAR = "g" elseif (tmp> = 47614 and TMP <= 48118) Then getpychar = "h" elseif (TMP> = 48119 and TMP <= 49061) THEN getPychar = "j" elseif (TMP> = 49062 and TMP <= 49323) THEN getPychar = "k" elseif (TMP> = 49324 and TMP <= 49895) THEN getpychar = "l" elseif (TMP> = 49896 and TMP <= 50370) THEN 'less HEN getpychar = "m" elseif (TMP> = 50371 and TMP <= 50613 ) THEN getpychar = "n" elseif (TMP> = 50614 and TMP <= 50621) THEN getPychar = "o" elseif (TMP> = 50622 and tmp <= 50905) THEN getPychar = "p" elseif (TMP> = 50 906 and TMP <= 51386) Then getpychar = "q" elseif (TMP> = 51387 and TMP <= 51445) THEN getPychar = "r" elseif (tmp> = 51446 and TMP <= 52217) THEN 'Excessive getPychar = "S" elseif (TMP> = 52218 and TMP <= 52697) THEN getpychar = "t"
Elseif (TMP> = 52698 and TMP <= 52979) THEN getpychar = "w" elseif (TMP> = 52980 and TMP <= 53688) THEN 'Range incorrect GetPychar = "x" elseif (TMP> = 53689 and TMP <= 54480) Then getpychar = "y" elseif (TMP> = 54481 and TMP <= 62289) THEN getPychar = "z" else 'If not Chinese, the msgbox "is not Chinese" end iffunction getpy (str) for i = 1 To Len (Str) getpy = getpy & getpychar (MID (STR, I, 1)) NEXTEND FUNCTION
PRIVATE SUB Command1_Click () MSGBOX getpy ("How are you?" End Sub
Note: References: http://www.yywzw.com/jt/srh/hlg01-07.htm (Z's right border 62289 should be changed to 65278?)
