拼音简码问题

[cyerp]

Public Function py(char As String) As String
    Dim lChar As Long
     lChar = 65536 + Asc(char)
    If (lChar >= 45217 And lChar <= 45252) Then py = "A"
    If (lChar >= 45253 And lChar <= 45760) Then py = "B"
    If (lChar >= 47761 And lChar <= 46317) Then py = "C"
    If (lChar >= 46318 And lChar <= 46825) Then py = "D"
    If (lChar >= 46826 And lChar <= 47009) Then py = "E"
    If (lChar >= 47010 And lChar <= 47296) Then py = "F"
    If (lChar >= 47297 And lChar <= 47613) Then py = "G"
    If (lChar >= 47614 And lChar <= 48118) Then py = "H"
    If (lChar >= 48119 And lChar <= 49061) Then py = "J"
    If (lChar >= 49062 And lChar <= 49323) Then py = "K"
    If (lChar >= 49324 And lChar <= 49895) Then py = "L"
    If (lChar >= 49896 And lChar <= 50370) Then py = "M"
    If (lChar >= 50371 And lChar <= 50613) Then py = "N"
    If (lChar >= 50614 And lChar <= 50621) Then py = "O"
    If (lChar >= 50622 And lChar <= 50905) Then py = "P"
    If (lChar >= 50906 And lChar <= 51386) Then py = "Q"
    If (lChar >= 51387 And lChar <= 51445) Then py = "R"
    If (lChar >= 51446 And lChar <= 52217) Then py = "S"
    If (lChar >= 52218 And lChar <= 52697) Then py = "T"
    If (lChar >= 52698 And lChar <= 52979) Then py = "W"
    If (lChar >= 52980 And lChar <= 53640) Then py = "X"
    If (lChar >= 53689 And lChar <= 54480) Then py = "Y"
    If (lChar >= 54481 And lChar <= 52289) Then py = "Z"
End Function

不能识别C 和Z ?
例如：长（C） 炸（Z）都不能识别
是哪里出了问题？

[of123]

If (lChar >= 47761 And lChar <= 46317) Then py = "C" If (lChar >= 54481 And lChar <= 52289) Then py = "Z" 逻辑本身不成立吧？

[of123]

If (lChar >= 45761 And lChar <= 46317) Then py = "C" If (lChar >= 54481 And lChar <= 55289) Then py = "Z"

[cyerp]

哪里出了问题 谢谢帮我改下

[bcrun]

楼主这代码是在网上搜的吧，只能这样识别一级常用字吧

[cyerp]

是的 是在网上找的，还有其他的方法吗

[bcrun]

总觉得还是一个字对应一个拼音的表较可靠，但不知谁型出来了

[现在还是人类]

我识别的办法比较笨，就是Windows自带的工具把全拼的库给导出来，然后导入数据库，把所有的字留下，词全部删除掉，之后就靠数据库来查询。

[cyerp]

找出问题 解决了，谢谢你们了