Public Function PinYin(Tstr As String) As String
Dim I As String
I = Asc(Tstr)
If I >= Asc("啊") And I < Asc("芭") Then PinYin = "a"
If I >= Asc("芭") And I < Asc("擦") Then PinYin = "b"
If I >= Asc("擦") And I < Asc("搭") Then PinYin = "c"
If I >= Asc("搭") And I < Asc("蛾") Then PinYin = "d"
If I >= Asc("蛾") And I < Asc("发") Then PinYin = "e"
If I >= Asc("发") And I < Asc("噶") Then PinYin = "f"
If I >= Asc("噶") And I < Asc("哈") Then PinYin = "g"
If I >= Asc("哈") And I < Asc("击") Then PinYin = "h"
If I >= Asc("击") And I < Asc("喀") Then PinYin = "j"
If I >= Asc("喀") And I < Asc("垃") Then PinYin = "k"
If I >= Asc("垃") And I < Asc("妈") Then PinYin = "l"
If I >= Asc("妈") And I < Asc("拿") Then PinYin = "m"
If I >= Asc("拿") And I < Asc("哦") Then PinYin = "n"
If I >= Asc("哦") And I < Asc("啪") Then PinYin = "o"
If I >= Asc("啪") And I < Asc("欺") Then PinYin = "p"
If I >= Asc("欺") And I < Asc("然") Then PinYin = "q"
If I >= Asc("然") And I < Asc("撒") Then PinYin = "r"
If I >= Asc("撒") And I < Asc("塌") Then PinYin = "s"
If I >= Asc("塌") And I < Asc("挖") Then PinYin = "t"
If I >= Asc("挖") And I < Asc("昔") Then PinYin = "w"
If I >= Asc("昔") And I < Asc("压") Then PinYin = "x"
If I >= Asc("压") And I < Asc("匝") Then PinYin = "y"
If I >= Asc("匝") And I <= Asc("座") Then PinYin = "z"
If Not (I >= Asc("芭") And I <= Asc("座")) Then PinYin = Tstr
py_Exit:
Exit Function
py_Err:
PinYin = ""
Resume py_Exit
End Function
