• Home
 · 
• String Manipulation
 · 
• THIS PROGRAM FINDS OUT THE CREDIT CARD TYPE THAT IS MASTER/VISA/AMEX ETC ON THE BASIS OF THE CREDIT

THIS PROGRAM FINDS OUT THE CREDIT CARD TYPE THAT IS MASTER/VISA/AMEX ETC ON THE BASIS OF THE CREDIT

THIS PROGRAM FINDS OUT THE CREDIT CARD TYPE THAT IS MASTER/VISA/AMEX ETC ON THE BASIS OF THE CREDIT CARD NUMBER ENTERED BY THE USER.JUST TRY

API Declarations


Dim CardLength As Integer




Rate THIS PROGRAM FINDS OUT THE CREDIT CARD TYPE THAT IS MASTER/VISA/AMEX ETC ON THE BASIS OF THE CREDIT

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    CardLength = Len(CardNumber)
    If CardLength = 16 Then
        If Left(CardNumber, 1) = "5" Then
            If CInt(Mid(CardNumber, 2, 1)) >= 1 And CInt(Mid(CardNumber, 2, 1)) <= 5 Then
                CheckCardType = "MasterCard"
            End If
        ElseIf Left(CardNumber, 1) = "4" Then
            CheckCardType = "VISA"
        ElseIf Left(CardNumber, 1) = "3" Then
            CheckCardType = "JCB"
        ElseIf Left(CardNumber, 4) = "6011" Then
            CheckCardType = "Discover"
        End If
    ElseIf CardLength = 15 Then
        If Left(CardNumber, 2) = "34" Or Left(CardNumber, 2) = "37" Then
            CheckCardType = "AMEX"
        ElseIf Left(CardNumber, 4) = "2014" Or Left(CardNumber, 4) = "2149" Then
            CheckCardType = "enRoute"
        ElseIf Left(CardNumber, 4) = "2131" Or Left(CardNumber, 4) = "1800" Then
            CheckCardType = "JCB"
        End If
    ElseIf CardLength = 14 Then
        If Left(CardNumber, 2) = "30" Then
            If CInt(Mid(CardNumber, 3, 1)) >= 1 And CInt(Mid(CardNumber, 3, 1)) <= 5 Then
                CheckCardType = "Diners Club"
            End If
        ElseIf Left(CardNumber, 2) = "36" Or Left(CardNumber, 2) = "38" Then
            CheckCardType = "Diners Club"
        End If
    ElseIf CardLength = 13 Then
        If Left(CardNumber, 1) = "4" Then CheckCardType = "VISA"
    Else
        CheckCardType = "UNKNOWN"
    End If
    If CheckCardType = "" Then CheckCardType = "UNKNOWN"
End Function