'GB2312获取汉字首字母
Function getpychar(char)
Dim tmp
tmp=65536+Asc(char)
If(tmp>=45217 And tmp=45252) Then
getpychar= "A"
ElseIF(tmp>=45253 And tmp=45760) Then
getpychar= "B"
ElseIF(tmp>=45761 And tmp=46317) Then
getpychar= "C"
ElseIF(tmp>=46318 And tmp=46825) Then
getpychar= "D"
ElseIF(tmp>=46826 And tmp=47009) Then
getpychar= "E"
ElseIF(tmp>=47010 And tmp=47296) Then
getpychar= "F"
ElseIF(tmp>=47297 And tmp=47613) Then
getpychar= "G"
ElseIF(tmp>=47614 And tmp=48118) Then
getpychar= "H"
ElseIF(tmp>=48119 And tmp=49061) Then
getpychar= "J"
ElseIF(tmp>=49062 And tmp=49323) Then
getpychar= "K"
ElseIF(tmp>=49324 And tmp=49895) Then
getpychar= "L"
ElseIF(tmp>=49896 And tmp=50370) Then
getpychar= "M"
ElseIF(tmp>=50371 And tmp=50613) Then
getpychar= "N"
ElseIF(tmp>=50614 And tmp=50621) Then
getpychar= "O"
ElseIF(tmp>=50622 And tmp=50905) Then
getpychar= "P"
ElseIF(tmp>=50906 And tmp=51386) Then
getpychar= "Q"
ElseIF(tmp>=51387 And tmp=51445) Then
getpychar= "R"
ElseIF(tmp>=51446 And tmp=52217) Then
getpychar= "S"
ElseIF(tmp>=52218 And tmp=52697) Then
getpychar= "T"
ElseIF(tmp>=52698 And tmp=52979) Then
getpychar= "W"
ElseIF(tmp>=52980 And tmp=53640) Then
getpychar= "X"
ElseIF(tmp>=53689 And tmp=54480) Then
getpychar= "Y"
ElseIF(tmp>=54481 And tmp=62289) Then
getpychar= "Z"
Else '如果不是中文,则不处理
getpychar=char
End If
End Function