045.字符地址转换为数值

'###############################################################

'函数作用：字符地址转换为数值

'###############################################################

Public Function CtoN(Strings As String) As Integer

    Dim Sl As Long, S1 As String, S2 As String

    Strings = UCase(Strings)

    Sl = Len(Strings)

    If Sl = 0 Then

        CtoN = 0

    ElseIf Sl = 1 Then

        CtoN = Asc(Strings) ‐ 64

    ElseIf Sl > 1 Then

        S1 = Mid(Strings, 1, 1)

        S2 = Mid(Strings, 2, 1)

        CtoN = (Asc(S1) ‐ 64) * 26 + Asc(S2) ‐ 64

    End If

End Function