来自于csdn的十豆三
 
===================================================================
*----以下代码存入一个GetPY.prg中,即建立自定义函数----*

Parameters cChina
Local pcPychr,i,j,c,Hz
Release pcPychr
Public pcPychr
pcPychr=''
Set Collate To 'Pinyin'
Pycode='八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗' &&从B开始的每个拼音码的首字码
For i=1 To Len(cChina)
    If Asc(Substr(cChina,i,1))>160
        hz=Substr(cChina,i,2)
        c=''
        s=1
        For j=1 To 52
            s1=Substr(Pycode,j,2)
            If hz <Substr(Pycode,j,2)
                c=Chr(96+S)
                Exit
            Endif
            j=j+1
            s=s+1
        Endfor
        pcPychr=pcPychr+Upper(c)
        i=i+1
    Else
        pcPychr=pcPychr+Upper(Substr(cChina,i,1))
    Endif
Endfor
Return pcPychr
**End**


*----调用方式为----*
GetPY('汉字')

如:
?GetPY('十豆三')
得到的结果为
SDS