VAT LuhnKey

De BlueWiki
Version du 5 mai 2013 à 15:03 par Paul Kuhn (discuter | contributions)

(diff) ← Version précédente | Voir la version courante (diff) | Version suivante → (diff)


Paramètres Type Description
Nombre Texte caption Nombre dont vous voulez calculer la clef de Luhn
Multiplicateur initial Entier long caption 1 ou 2


Resultat Entier Long caption Clef de Luhn

Description


Cette méthode calcule la clef de Luhn d'un nombre

Exemple de code


 // Nom utilisateur (OS) : Paul Kühn - BlueCompany
 // Date et heure : 28/12/11, 16:34:48
 // ----------------------------------------------------
 // Méthode : VAT_CheckCardNumber

C_BOOLEEN($0;$isOK)
C_TEXTE($cardNumber;$1)
$cardNumber:=$1

Si (Longueur($cardNumber)=16)
  $15Premier:=Sous chaine($cardNumber;1;15)
  $LuhnKey:=VAT_LuhnKey ($15Premier;2)
  Si ($LuhnKey=Num(Sous chaine($cardNumber;16;1)))
    $isOK:=Vrai
  Fin de si 
Fin de si 
$0:=$isOK