Shipping Container ISO number check

Category:

Miscellaneous

Type:

Snippets

Difficulty:

Beginning

Author: Anonymous

Version Compatibility: Visual Basic 6

More information:

Container Number ISO check, also works for VBA - Excel. Provides three options, check digit, whole container number or "OK"/"Non ISO number"

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

Declarations:
' (None)

Code:

Function ISO_Checking(Container_Num As String, Optional output_option As Integer) As String

'**********************
'* Written by Russell *
'*   PONL Wellington  *
'**********************

' OUTPUT OPTIONS:
' 0 = Check Digit as output
' 1 = Full Container Number with calculated check Digit as output
' 2 = "OK" or "Non ISO Number"

' check digit optional for options 0 & 1 but full container number required for option 2.

' Note: Incorrect format eg space between prefix and numbers will cause error handler to end
' Function and return "Wrong Format"

Dim FirstChar As String
Dim SecondChar As String
Dim ThirdChar As String
Dim ForthChar As String
Dim FifthChar As Byte
Dim SixthChar As Byte
Dim SeventhChar As Byte
Dim EighthChar As Byte
Dim NinthChar As Byte
Dim TenthChar As Byte
Dim EleventhChar As Byte
Dim First_Convert As Byte
Dim Second_Convert As Byte
Dim Third_Convert As Byte
Dim Forth_Convert As Byte
Dim Added_Value As Currency
Dim Check_Digit As Byte

On Error GoTo errorhandler

FirstChar = UCase(Left(Container_Num, 1))       ' Split up container number to Characters
    SecondChar = UCase(Mid(Container_Num, 2, 1))
    ThirdChar = UCase(Mid(Container_Num, 3, 1))
    ForthChar = UCase(Mid(Container_Num, 4, 1))
    FifthChar = Mid(Container_Num, 5, 1)
    SixthChar = Mid(Container_Num, 6, 1)
    SeventhChar = Mid(Container_Num, 7, 1)
    EighthChar = Mid(Container_Num, 8, 1)
    NinthChar = Mid(Container_Num, 9, 1)
    TenthChar = Mid(Container_Num, 10, 1)
    EleventhChar = Right(Container_Num, 1)

Select Case FirstChar                      ' Convert first character of prefix to a number
    Case Is = "A"
        First_Convert = 10
    Case Is = "B"
        First_Convert = 12
    Case Is = "C"
        First_Convert = 13
    Case Is = "D"
        First_Convert = 14
    Case Is = "E"
        First_Convert = 15
    Case Is = "F"
        First_Convert = 16
    Case Is = "G"
        First_Convert = 17
    Case Is = "H"
        First_Convert = 18
    Case Is = "I"
        First_Convert = 19
    Case Is = "J"
        First_Convert = 20
    Case Is = "K"
        First_Convert = 21
    Case Is = "L"
        First_Convert = 23
    Case Is = "M"
        First_Convert = 24
    Case Is = "N"
        First_Convert = 25
    Case Is = "O"
        First_Convert = 26
    Case Is = "P"
        First_Convert = 27
    Case Is = "Q"
        First_Convert = 28
    Case Is = "R"
        First_Convert = 29
    Case Is = "S"
        First_Convert = 30
    Case Is = "T"
        First_Convert = 31
    Case Is = "U"
        First_Convert = 32
    Case Is = "V"
        First_Convert = 34
    Case Is = "W"
        First_Convert = 35
    Case Is = "X"
        First_Convert = 36
    Case Is = "Y"
        First_Convert = 37
    Case Is = "Z"
        First_Convert = 38
End Select
     
Select Case SecondChar                        ' Convert second character of prefix to a number
    Case Is = "A"
        Second_Convert = 10
    Case Is = "B"
        Second_Convert = 12
    Case Is = "C"
        Second_Convert = 13
    Case Is = "D"
        Second_Convert = 14
    Case Is = "E"
        Second_Convert = 15
    Case Is = "F"
        Second_Convert = 16
    Case Is = "G"
        Second_Convert = 17
    Case Is = "H"
        Second_Convert = 18
    Case Is = "I"
        Second_Convert = 19
    Case Is = "J"
        Second_Convert = 20
    Case Is = "K"
        Second_Convert = 21
    Case Is = "L"
        Second_Convert = 23
    Case Is = "M"
        Second_Convert = 24
    Case Is = "N"
        Second_Convert = 25
    Case Is = "O"
        Second_Convert = 26
    Case Is = "P"
        Second_Convert = 27
    Case Is = "Q"
        Second_Convert = 28
    Case Is = "R"
        Second_Convert = 29
    Case Is = "S"
        Second_Convert = 30
    Case Is = "T"
        Second_Convert = 31
    Case Is = "U"
        Second_Convert = 32
    Case Is = "V"
        Second_Convert = 34
    Case Is = "W"
        Second_Convert = 35
    Case Is = "X"
        Second_Convert = 36
    Case Is = "Y"
        Second_Convert = 37
    Case Is = "Z"
        Second_Convert = 38
End Select
    
Select Case ThirdChar                         ' Convert third character of prefix to a number
    Case Is = "A"
        Third_Convert = 10
    Case Is = "B"
        Third_Convert = 12
    Case Is = "C"
        Third_Convert = 13
    Case Is = "D"
        Third_Convert = 14
    Case Is = "E"
        Third_Convert = 15
    Case Is = "F"
        Third_Convert = 16
    Case Is = "G"
        Third_Convert = 17
    Case Is = "H"
        Third_Convert = 18
    Case Is = "I"
        Third_Convert = 19
    Case Is = "J"
        Third_Convert = 20
    Case Is = "K"
        Third_Convert = 21
    Case Is = "L"
        Third_Convert = 23
    Case Is = "M"
        Third_Convert = 24
    Case Is = "N"
        Third_Convert = 25
    Case Is = "O"
        Third_Convert = 26
    Case Is = "P"
        Third_Convert = 27
    Case Is = "Q"
        Third_Convert = 28
    Case Is = "R"
        Third_Convert = 29
    Case Is = "S"
        Third_Convert = 30
    Case Is = "T"
        Third_Convert = 31
    Case Is = "U"
        Third_Convert = 32
    Case Is = "V"
        Third_Convert = 34
    Case Is = "W"
        Third_Convert = 35
    Case Is = "X"
        Third_Convert = 36
    Case Is = "Y"
        Third_Convert = 37
    Case Is = "Z"
        Third_Convert = 38
End Select
      
Select Case ForthChar                         ' Convert forth character of prefix to a number
    Case Is = "A"
        Forth_Convert = 10
    Case Is = "B"
        Forth_Convert = 12
    Case Is = "C"
        Forth_Convert = 13
    Case Is = "D"
        Forth_Convert = 14
    Case Is = "E"
        Forth_Convert = 15
    Case Is = "F"
        Forth_Convert = 16
    Case Is = "G"
        Forth_Convert = 17
    Case Is = "H"
        Forth_Convert = 18
    Case Is = "I"
        Forth_Convert = 19
    Case Is = "J"
        Forth_Convert = 20
    Case Is = "K"
        Forth_Convert = 21
    Case Is = "L"
        Forth_Convert = 23
    Case Is = "M"
        Forth_Convert = 24
    Case Is = "N"
        Forth_Convert = 25
    Case Is = "O"
        Forth_Convert = 26
    Case Is = "P"
        Forth_Convert = 27
    Case Is = "Q"
        Forth_Convert = 28
    Case Is = "R"
        Forth_Convert = 29
    Case Is = "S"
        Forth_Convert = 30
    Case Is = "T"
        Forth_Convert = 31
    Case Is = "U"
        Forth_Convert = 32
    Case Is = "V"
        Forth_Convert = 34
    Case Is = "W"
        Forth_Convert = 35
    Case Is = "X"
        Forth_Convert = 36
    Case Is = "Y"
        Forth_Convert = 37
    Case Is = "Z"
        Forth_Convert = 38
End Select

Added_Value = (First_Convert + (Second_Convert * 2) + (Third_Convert * 4) + (Forth_Convert * 8) _
+ (FifthChar * 16) + (SixthChar * 32) + (SeventhChar * 64) + (EighthChar * 128) _
+ (NinthChar * 256) + (TenthChar * 512)) / 11        ' Sum multiplied values & divide by 11

'Multiply Right of decimal by 11 and round to whole number
Check_Digit = Round((Added_Value - Fix(Added_Value)) * 11, 1)
        
If Check_Digit = 10 Then Check_Digit = 0       ' Make zero if 10

Select Case output_option
    Case 0
        ISO_Checking = Check_Digit
    Case 1
        ISO_Checking = FirstChar & SecondChar & ThirdChar & ForthChar & FifthChar _
         & SixthChar & SeventhChar & EighthChar & NinthChar & TenthChar & Check_Digit
    Case 2
        If EleventhChar = Check_Digit Then ISO_Checking = "OK" Else _
        ISO_Checking = "Non ISO Number"
End Select

Exit Function
errorhandler:

ISO_Checking = "Wrong Format"

End Function