来自于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