有趣的算法

當序號為99後，會變成0A.0B.......0Z...1A..1B......1Z....2A

Public Function ID2INT(ByVal strData As String) As Integer
   
    Dim strX As String
    Dim strY As String
   
    If Len(Trim(strData)) <> 2 Then
        ID2INT = -1
    Else
        If IsNumeric(strData) Then
            ID2INT = CInt(strData)
        Else
            strX = Left(Trim(strData), 1)
            strY = Right(Trim(strData), 1)
           
            If IsNumeric(strX) Then
                ID2INT = CInt(strX) * 26 + (Asc(strY) - Asc("A")) + 100
            Else
                ID2INT = (10 + Asc(strX) - Asc("A")) * 26 + (Asc(strY) - Asc("A")) + 100
            End If
        End If
    End If
Exit Function
ErrHandle:
    If Len(g_objSystem.strErrorFunction) = 0 Then
        g_objSystem.strErrorModule = MC_THISMODULE
        g_objSystem.strErrorFunction = "ID2INT"
    End If
    Call Err.Raise(Err.Number)
End Function

Public Function INT2ID(ByVal intData As Integer) As String
    Dim intX As Integer
    Dim intY As Integer
    If intData >= 0 Then
        If intData < 100 Then
            INT2ID = format(intData, "00")
        Else
            intX = (intData - 100) \ 26
            intY = (intData - 100) Mod 26
            If intX < 10 Then
                INT2ID = intX & Chr(intY + Asc("A"))
            ElseIf intX > (Asc("Z") - Asc("A") + 10) Then
                INT2ID = vbNullString
            Else
                INT2ID = Chr(Asc("A") + (intX - 10)) & Chr(intY + Asc("A"))
            End If
        End If
    Else
        INT2ID = vbNullString
    End If
Exit Function
ErrHandle:
    If Len(g_objSystem.strErrorFunction) = 0 Then
        g_objSystem.strErrorModule = MC_THISMODULE
        g_objSystem.strErrorFunction = "INT2ID"
    End If
    Call Err.Raise(Err.Number)
End Function