Validate Bank Routing Numbers (VB.NET)

Category:

C#, VB.NET, ASP.NET

Type:

Classes

Difficulty:

Beginning

Author:

Mike Walters

Version Compatibility: Visual Basic.NET, ASP.NET

More information:

This Class will return true or false values. Code for calling the Class:

Dim i_BankCheck_o As New Bank

      Try
            If BankCheck.Checkroute(TextBox1.Text) Then
                Label1.Text = TextBox1.Text & " = YES"
            Else
                Label1.Text = TextBox1.Text & " = NO"
            End If
        Catch exp As Exception
            Throw New Exception(exp.Message.ToString, exp.InnerException)
Label1.Text = TextBox1.Text & "To long or errer"
        End Try

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Class Bank
    Dim i_Digit_a(8) As Integer
    Dim i_AmtCheck_i As Integer
    Dim i_Partno_i As Integer
    Dim i_PartRate_i As Integer
    Dim i_LeftOver_i As Integer
    Dim i_PartThere_i As Integer
    Dim i_CheckDigit_i As Integer

Private Function math(ByVal a_num_i As Double)
        If a_num_i < CInt(a_num_i) Then
            Return CInt(a_num_i) - 1
        Else
            Return a_num_i
        End If
    End Function
    Public Function Checkroute(ByVal a_num_i As Integer)

i_Digit_a(0) = math((a_num_i / 100000000))
        i_Digit_a(1) = math((a_num_i / 10000000) - (i_Digit_a(0) * 10))
        i_Digit_a(2) = math((a_num_i / 1000000) - (i_Digit_a(0) * 100) - (i_Digit_a(1) * 10))
        i_Digit_a(3) = math((a_num_i / 100000) - (i_Digit_a(0) * 1000) - (i_Digit_a(1) * 100) - (i_Digit_a(2) * 10))
        i_Digit_a(4) = math((a_num_i / 10000) - (i_Digit_a(0) * 10000) - (i_Digit_a(1) * 1000) - (i_Digit_a(2) * 100) - (i_Digit_a(3) * 10))
        i_Digit_a(5) = math((a_num_i / 1000) - (i_Digit_a(0) * 100000) - (i_Digit_a(1) * 10000) - (i_Digit_a(2) * 1000) - (i_Digit_a(3) * 100) - (i_Digit_a(4) * 10))
        i_Digit_a(6) = math((a_num_i / 100) - (i_Digit_a(0) * 1000000) - (i_Digit_a(1) * 100000) - (i_Digit_a(2) * 10000) - (i_Digit_a(3) * 1000) - (i_Digit_a(4) * 100) - (i_Digit_a(5) * 10))
        i_Digit_a(7) = math((a_num_i / 10) - (i_Digit_a(0) * 10000000) - (i_Digit_a(1) * 1000000) - (i_Digit_a(2) * 100000) - (i_Digit_a(3) * 10000) - (i_Digit_a(4) * 1000) - (i_Digit_a(5) * 100) - (i_Digit_a(6) * 10))
        i_Digit_a(8) = math((a_num_i / 1) - (i_Digit_a(0) * 100000000) - (i_Digit_a(1) * 10000000) - (i_Digit_a(2) * 1000000) - (i_Digit_a(3) * 100000) - (i_Digit_a(4) * 10000) - (i_Digit_a(5) * 1000) - (i_Digit_a(6) * 100) - (i_Digit_a(7) * 10))
        i_AmtCheck_i = (i_Digit_a(0) * 3) + (i_Digit_a(1) * 7) + (i_Digit_a(2)) + (i_Digit_a(3) * 3) + (i_Digit_a(4) * 7) + (i_Digit_a(5)) + (i_Digit_a(6) * 3) + (i_Digit_a(7) * 7)

i_Partno_i = math(i_AmtCheck_i / 10)

i_PartRate_i = i_Partno_i * 10
        i_LeftOver_i = i_AmtCheck_i - i_PartRate_i

If i_LeftOver_i > 0 Then
            i_PartThere_i = (i_Partno_i + 1) * 10
        Else
            i_PartThere_i = 0
        End If

i_CheckDigit_i = i_PartThere_i - i_AmtCheck_i

If Right(i_CheckDigit_i, 1) = i_Digit_a(8) Then
            Return 1
        Else
            Return 0
        End If
    End Function

End Class