by GAUTAM KAIKINI (5 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 14th September 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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
VBcoders
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
No comments have been posted about THIS PROGRAM FINDS OUT THE CREDIT CARD TYPE THAT IS MASTER/VISA/AMEX ETC ON THE BASIS OF THE CREDIT. Why not be the first to post a comment about THIS PROGRAM FINDS OUT THE CREDIT CARD TYPE THAT IS MASTER/VISA/AMEX ETC ON THE BASIS OF THE CREDIT.