1 Function pinyin(p As String) As String
 2 
 3 　　i = Asc(p)
 4 
 5 　　Select Case i
 6 
 7 　　Case -20319 To -20284: pinyin = "A"
 8 　　Case -20283 To -19776: pinyin = "B"
 9 　　Case -19775 To -19219: pinyin = "C"
10 　　Case -19218 To -18711: pinyin = "D"
11 　　Case -18710 To -18527: pinyin = "E"
12 　　Case -18526 To -18240: pinyin = "F"
13 　　Case -18239 To -17923: pinyin = "G"
14 　　Case -17922 To -17418: pinyin = "H"
15 　　Case -17417 To -16475: pinyin = "J"
16 　　Case -16474 To -16213: pinyin = "K"
17 　　Case -16212 To -15641: pinyin = "L"
18 　　Case -15640 To -15166: pinyin = "M"
19 　　Case -15165 To -14923: pinyin = "N"
20 　　Case -14922 To -14915: pinyin = "O"
21 　　Case -14914 To -14631: pinyin = "P"
22 　　Case -14630 To -14150: pinyin = "Q"
23 　　Case -14149 To -14091: pinyin = "R"
24 　　Case -14090 To -13319: pinyin = "S"
25 　　Case -13318 To -12839: pinyin = "T"
26 　　Case -12838 To -12557: pinyin = "W"
27 　　Case -12556 To -11848: pinyin = "X"
28 　　Case -11847 To -11056: pinyin = "Y"
29 　　Case -11055 To -2050: pinyin = "Z"
30 
31 　　Case Else: pinyin = p
32 
33 　　End Select
34 
35 End Function
36 
37 Function getpy(str)
38 
39 　　For i = 1 To Len(str)
40 
41 　　getpy = getpy & pinyin(Mid(str, i, 1))
42 
43 　　Next i
44 
45 End Function