• Home
 · 
• Miscellaneous
 · 
• Credit Card Identification

Credit Card Identification

Determines type of Credit Card by it's number.

Inputs
Card Number as String

Assumes
This is based on documents from CyberCash's home page.

Returns
Card Type as String

Side Effects
Is not Year 2061 Compliant

API Declarations



Rate Credit Card Identification

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function CardType(CCNum As String) As String
Dim Header As String
  Select Case Left$(CCNum, 1)
    Case "5"
      Header = Left$(CCNum, 2)
      If Header >= 51 And Header <= 55 And Len(CCNum) = 16 Then
        CardType = "MasterCard"
      End If
    Case "4"
      If Len(CCNum) = 13 Or Len(CCNum) = 16 Then
        CardType = "Visa"
      End If
    Case "3"
      Header = Left$(CCNum, 3)
      If Header >= 340 And Header <= 379 And Len(CCNum) = 15 Then
        CardType = "AMEX"
      End If
      If Header >= 300 And Header <= 305 And Len(CCNum) = 14 Then
        CardType = "Diners Club"
      End If
      If Header >= 360 And Header <= 369 And Len(CCNum) = 14 Then
        CardType = "Diners Club"
      End If
      If Header >= 380 And Header <= 389 And Len(CCNum) = 14 Then
        CardType = "Diners Club"
      End If
      If Header >= 300 And Header <= 399 And Len(CCNum) = 16 Then
        CardType = "JCB"
      End If
    Case "6"
      Header = Left$(CCNum, 4)
      If Header = "6011" And Len(CCNum) = 16 Then
        CardType = "Discover"
      End If
    Case "2"
      Header = Left$(CCNum, 4)
      If (Header = "2014" Or Header = "2149") And Len(CCNum) = 15 Then
        CardType = "enRoute"
      End If
      If Header = "2131" And Len(CCNum) = 15 Then
        CardType = "JCB"
      End If
    Case "1"
      Header = Left$(CCNum, 4)
      If Header = "1800" And Len(CCNum) = 15 Then
        CardType = "JCB"
      End If
  End Select
  If CardType = "" Then CardType = "Unknown"
End Function