取得中文句子头一个字的大写拼音字母<% ‘****************************** ‘函数：getpychar(char) ‘参数：char,任意中文字符或句子 ‘作者：阿里西西 ‘日期：2007/7/15 ‘描述：取得中文句子头一个字的大写拼音字母 ‘示例：getpychar(“欢迎访问阿里西西”) ‘****************************** Function getpychar(char) Dim tmp tmp=65536+Asc(char) If(tmp>=45217 And tmp<=45252) Then getpychar= “
