- Home
·
- Miscellaneous
·
- Find out from a given credit card number what type of card this is associated with eg Visa/MasterCa
Find out from a given credit card number what type of card this is associated with eg Visa/MasterCa
Find out from a given credit card number what type of card this is associated with eg Visa/MasterCard etc.
Rate Find out from a given credit card number what type of card this is associated with eg Visa/MasterCa
(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
Find out from a given credit card number what type of card this is associated with eg Visa/MasterCa Comments
No comments yet — be the first to post one!
Post a Comment