中文转换成拼音函数

 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''     '中文转换成拼音函数     Public Function GetChinesePYCode(ByVal SourceStr As String) As String         Dim Serial_S As String    

>>阅读原文<<