Calcul du n° de carte de crédit à 16 chiffres

Commenter

Contenu du snippet

Permet de vérifier le code d'une carte de crédit et ...
A utiliser à des fins éducatives exclusivement.

Source / Exemple : 


'---------------------------------------------------
' Ouvrir un nouveau projet
' Mettre un maskeditbox sur la feuille nommé Code
' Mettre un bouton Command1
' Mettre un label  Label1
' Coller ce code dans la feuille
'----------------------------------------------------
Private Sub Command1_Click()
Dim i As Integer
Dim i_Chiffre As Integer
Dim i_Total As Integer
i_Total = 0
For i = 1 To 16
    i_Chiffre = Mid(code.Text, i, 1)
    If impair(i) Then
       i_Chiffre = i_Chiffre * 2
    Else
       i_Chiffre = i_Chiffre * 1
    End If
    If i_Chiffre > 9 Then
       i_Chiffre = i_Chiffre - 9
    End If
    i_Total = i_Total + i_Chiffre
    
Next
If (i_Total / 10) = Int(i_Total / 10) Then
   Label1.Caption = "Code correct"
   Label1.ForeColor = QBColor(9)
Else
   Label1.Caption = "code incorrect"
   Label1.ForeColor = QBColor(4)
End If
Label1.Refresh
End Sub

Function impair(nombre)
    If (nombre / 2) <> Int(nombre / 2) Then
       impair = True
    Else
       impair = False
    End If
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_labout)