Public Function GetChinesePYCode(ByVal SourceStr As String) As String
Dim Serial_S As String
Dim Serial_T As String
Dim TempS As String
Dim J As Integer
For I = 1 To Len(SourceStr)
HelpChar = Mid(SourceStr, I, 1)
If Asc(HelpChar) >= Asc(Left(Serial_S, 1)) And Asc(HelpChar) <= Asc(Right(Serial_S, 1)) Then
'-------------------------------
If Asc(HelpChar) = Asc(Right(Serial_S, 1)) Then
GetChinesePYCode = Right(Serial_T, 1)
Else
For J = 2 To Len(Serial_S)
TempS = Mid(Serial_S, J, 1)
If Asc(HelpChar) < Asc(TempS) Then
GetChinesePYCode = GetChinesePYCode & Mid(Serial_T, J - 1, 1)
Exit For
End If