|
|
| |
|
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
'**************************************
' Name: Credit Card Identification
' Description:Determines type of Credit
' Card by it's number.
' By: John Anderson
'
' Inputs:Card Number as String
'
' Returns:Card Type as String
'
' Assumes:This is based on documents fro
' m CyberCash's home page.
'
' Side Effects:Is not Year 2061 Complian
' t
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=903&lngWId;=1'for details.'**************************************
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
| |
Other 1 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
4/14/1999 12:36:00 AM:leyo
Do you also have a code that also
checks the card expiraton? coz' I got a
code in jscript that has it, but I
can't understand it.
|
5/1/1999 3:17:00 PM:Jamesredwood
Yeah, Can we have some expiration date
code Please. Useless without.
|
5/14/1999 8:53:00 AM:Eric Paulson
Very useful algorithm!
|
5/18/1999 1:14:00 PM:Timothy Duemig
I've written many routines like this...
for all of you wanting to know the date
validation simply read in the date as a
string by using a combination of
instr(), mid(), left(), and right().
Use the Replace function to change
char(s) when needed.
|
7/19/1999 1:30:00 PM:lisa
just what I needed, thanks!
|
9/15/1999 5:52:00 PM:hey
Tim: Your answer to the date questions
do not help at all, could you just post
the date code too? thanks!
|
10/28/1999 6:20:00 PM:doo
what buttuns and other stuff do i need
on the form?
|
2/19/2000 6:38:03 AM:jeff
how would i make a textbox display the
card type?
|
7/6/2000 9:34:56 AM:Detonate
jeff:
Text1.Text =
CardType("5353000000000000")
John,
good submission :-)
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
