CreditCardType                              (XAPI2000)

Deklaration
Function CreditCardType Lib (ByVal S As String) As Integer

Beskrivning
Fastställer och returnerar typ av kreditkort. Parametern S specificerar ett kreditkortsnummer som ska undersökas. 

Returvärden
Funktionen returnerar en av följande värden:
.
Konstant Värde Beskrivning
CCT_VISA
CCT_AMERICAN_EXPRESS
CCT_MASTERCARD
CCT_DISCOVER
CCT_UNKNOWN		 1
2
3
4
99		 Kortet är Visa
Kortet är American Express
Kortet är MasterCard
Kortet är Discover
Kan ej fastställa typ

Se även
CreditCardNrValid, CreditCardCheckExpiryDate


Exempel 

Dim CCType As String, OutPutStr As String
CCType = ""

 Select Case CreditCardType(S)
 Case CCT_VISA
    CCType = "Visa"
 Case CCT_AMERICAN_EXPRESS
    CCType = "American Express"
 Case CCT_MASTERCARD
    CCType = "MasterCard"
 Case CCT_DISCOVER
    CCType = "Discover"
End Select

 If CCType <> "" Then OutPutStr = "Kortet är av typ '" + CCType + "'."