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