|
CreditCardNrValid
(XAPI2000)
Deklaration
VB 6.0
Function CreditCardNrValid (ByVal S As String, ByVal CCType
As Long) As Boolean
Deklaration VB.NET
Function CreditCardNrValid (ByVal S As String, ByVal CCType
As Integer) As Boolean
Beskrivning
Testar att ett kreditkortsnummer är giltigt. Parametern S
specificerar ett kreditkortsnummer som ska testas. Parametern
CCType anger typ av kreditkort och kan ha ett av nedanstående
värden:
. |
|
Konstant |
Värde |
Beskrivning |
CCT_VISA
CCT_AMERICAN_EXPRESS
CCT_MASTERCARD
CCT_DISCOVER
CCT_GENERAL |
1
2
3
4
99 |
Visa
American Express
MasterCard
Discover
Generellt nummer, testa ej typ |
.
Ska ett kreditkortsnummer testas
generellt (utan att man behöver ta hänsyn till typen) sätts inparametern
CCType till värdet CCT_GENERAL.
. |
Returvärden
Funktionen returnerar True om kreditkortsnumret är giltigt
eller False om det är ogiltigt.
Se även
CreditCardType,
CreditCardCheckExpiryDate |
Exempel
If CreditCardNrValid("4111 1111 1111 1111", CCT_VISA) Then
MsgBox "Kortet är ett giltigt VISA-kort!"
Else
MsgBox "Kortnumret tillhör inte ett giltigt VISA-kort!"
End If
|
