module_pym.bas

来自「易通汽车维修信息管理系统初期开发版本」· BAS 代码 · 共 111 行

Attribute VB_Name = "Module_PYM"

Public Function PY(mystr As String) As String
    If Asc(mystr) < 0 Then
        If Asc(Left(mystr, 1)) < Asc("啊") Then
            PY = "0"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("啊") And Asc(Left(mystr, 1)) < Asc("芭") Then
            PY = "A"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("芭") And Asc(Left(mystr, 1)) < Asc("擦") Then
            PY = "B"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("擦") And Asc(Left(mystr, 1)) < Asc("搭") Then
            PY = "C"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("搭") And Asc(Left(mystr, 1)) < Asc("蛾") Then
            PY = "D"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("蛾") And Asc(Left(mystr, 1)) < Asc("发") Then
            PY = "E"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("发") And Asc(Left(mystr, 1)) < Asc("噶") Then
            PY = "F"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("噶") And Asc(Left(mystr, 1)) < Asc("哈") Then
            PY = "G"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("哈") And Asc(Left(mystr, 1)) < Asc("击") Then
            PY = "H"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("击") And Asc(Left(mystr, 1)) < Asc("喀") Then
            PY = "J"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("喀") And Asc(Left(mystr, 1)) < Asc("垃") Then
            PY = "K"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("垃") And Asc(Left(mystr, 1)) < Asc("妈") Then
            PY = "L"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("妈") And Asc(Left(mystr, 1)) < Asc("拿") Then
            PY = "M"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("拿") And Asc(Left(mystr, 1)) < Asc("哦") Then
            PY = "N"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("哦") And Asc(Left(mystr, 1)) < Asc("啪") Then
            PY = "O"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("啪") And Asc(Left(mystr, 1)) < Asc("期") Then
            PY = "P"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("期") And Asc(Left(mystr, 1)) < Asc("然") Then
            PY = "Q"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("然") And Asc(Left(mystr, 1)) < Asc("撒") Then
            PY = "R"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("撒") And Asc(Left(mystr, 1)) < Asc("塌") Then
            PY = "S"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("塌") And Asc(Left(mystr, 1)) < Asc("挖") Then
            PY = "T"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("挖") And Asc(Left(mystr, 1)) < Asc("昔") Then
            PY = "W"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("昔") And Asc(Left(mystr, 1)) < Asc("压") Then
            PY = "X"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("压") And Asc(Left(mystr, 1)) < Asc("匝") Then
            PY = "Y"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("匝") Then
            PY = "Z"
            Exit Function
        End If
    Else
        If UCase(mystr) <= "Z" And UCase(mystr) >= "A" Then
            PY = mystr
        End If
        If UCase(mystr) <= "9" And UCase(mystr) >= "0" Then
            PY = mystr
        End If
    End If
End Function