获得汉字的拼音简码

获得汉字的拼音简码Public Function PY(Lv_Str_HZ As String) As String '获得汉字的拼音简码 Dim Lv_Int_I As Integer Dim Lv