天山雪.NET

讨论.NET和网站技术/数据库

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
'========== 得到汉字的拼音首字母 ====================================
Public Function GetPY(a1 As String) As String
    Dim t1 As String
    If Asc(a1) < 0 Then
       t1 = Left(a1, 1)
       If Asc(t1) < Asc("啊") Then GetPY = "0": Exit Function
       If Asc(t1) >= Asc("啊") And Asc(t1) < Asc("芭") Then GetPY = "A": Exit Function
       If Asc(t1) >= Asc("芭") And Asc(t1) < Asc("擦") Then GetPY = "B": Exit Function
       If Asc(t1) >= Asc("擦") And Asc(t1) < Asc("搭") Then GetPY = "C": Exit Function
       If Asc(t1) >= Asc("搭") And Asc(t1) < Asc("蛾") Then GetPY = "D": Exit Function
       If Asc(t1) >= Asc("蛾") And Asc(t1) < Asc("发") Then GetPY = "E": Exit Function
       If Asc(t1) >= Asc("发") And Asc(t1) < Asc("噶") Then GetPY = "F": Exit Function
       If Asc(t1) >= Asc("噶") And Asc(t1) < Asc("哈") Then GetPY = "G": Exit Function
       If Asc(t1) >= Asc("哈") And Asc(t1) < Asc("击") Then GetPY = "H": Exit Function
       If Asc(t1) >= Asc("击") And Asc(t1) < Asc("喀") Then GetPY = "J": Exit Function
       If Asc(t1) >= Asc("喀") And Asc(t1) < Asc("垃") Then GetPY = "K": Exit Function
       If Asc(t1) >= Asc("垃") And Asc(t1) < Asc("妈") Then GetPY = "L": Exit Function
       If Asc(t1) >= Asc("妈") And Asc(t1) < Asc("拿") Then GetPY = "M": Exit Function
       If Asc(t1) >= Asc("拿") And Asc(t1) < Asc("哦") Then GetPY = "N": Exit Function
       If Asc(t1) >= Asc("哦") And Asc(t1) < Asc("啪") Then GetPY = "O": Exit Function
       If Asc(t1) >= Asc("啪") And Asc(t1) < Asc("期") Then GetPY = "P": Exit Function
       If Asc(t1) >= Asc("期") And Asc(t1) < Asc("然") Then GetPY = "Q": Exit Function
       If Asc(t1) >= Asc("然") And Asc(t1) < Asc("撒") Then GetPY = "R": Exit Function
       If Asc(t1) >= Asc("撒") And Asc(t1) < Asc("塌") Then GetPY = "S": Exit Function
       If Asc(t1) >= Asc("塌") And Asc(t1) < Asc("挖") Then GetPY = "T": Exit Function
       If Asc(t1) >= Asc("挖") And Asc(t1) < Asc("昔") Then GetPY = "W": Exit Function
       If Asc(t1) >= Asc("昔") And Asc(t1) < Asc("压") Then GetPY = "X": Exit Function
       If Asc(t1) >= Asc("压") And Asc(t1) < Asc("匝") Then GetPY = "Y": Exit Function
       If Asc(t1) >= Asc("匝") Then GetPY = "Z": Exit Function
    Else
       If UCase(a1) <= "Z" And UCase(a1) >= "A" Then
          GetPY = UCase(Left(a1, 1))
       Else
          GetPY = "0"
       End If
    End If
End Function
posted on 2006-08-17 01:46  天山雪王  阅读(323)  评论(0编辑  收藏  举报