|
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 + "'."
|
