L'auteur
Gregory Adam
 Belgique
Membre Actif (personne physique)
# 0000001121
enregistré le 04/06/2006
 Fiche personnelle
 Note des membres
pas de note
|
Contributions > 01 - PRG : Programmation > Calculs de clefs et Checksums (rib, iban, ...)
Iban - valider, calculer les check digit
# 0000000651
ajouté le 26/10/2008 16:53:14 et modifié le 29/04/2009
consulté 11704 fois
Niveau
débutant
Version(s) Foxpro :
VFP 9.0
 Le téléchargement des pièces jointes est limité aux membres
Veuillez vous identifier ou vous inscrire si vous n'avez pas encore de compte ...
|
| Description |
|---|
- Validation des numeros iban
- calcul du checksum
Voir le code
|
| Code source : |
|---|
set proc to .\prog\BankNumberBits additive
if( !BankNumberBits_Init() )
?'Cannot initalize'
endif
local IbanNumber, CheckDigitsExpected, EmptyIsOK
EmptyIsOK = FALSE
&& Check valid
IbanNumber = 'BE68 5390 0754 7034'
?Iban_Valid(m.IbanNumber, @m.CheckDigitsExpected, m.EmptyIsOK)
&& make checkDigits
local s
s = '068205515543'
IbanNumber = 'BE' + '00' + m.s
do case
case Iban_Valid(m.IbanNumber, @m.CheckDigitsExpected, m.EmptyIsOK)
&& ok
case empty(m.CheckDigitsExpected)
&& invalid format
otherwise
IbanNumber = left(m.IbanNumber, 2) + m.CheckDigitsExpected + substr(m.IbanNumber, 5)
?m.IbanNumber, Iban_Valid(m.IbanNumber) && TRUE
endcase
|
| Commentaires |
|---|
Aucun commentaire enregistré ...
|
Retour à la liste