UNKNOWN '************************************** ' 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 from ' CyberCash's home page. ' 'Side Effects:Is not Year 2061 Compliant ' 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.903/lngWId.1/qx/v ' b/scripts/ShowCode.htm '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