PROCEDURE CheckNumberNational(RegistreNational)

//Vérification du registre national sous le format de 99.99.99-999.99 (voir masque de saisie)
nMonRegistre est un entier
nReste est un entier
nCheck est un entier
nControle est entier
bReponse est un booléen
sMaChaineTraitee est une chaîne

// Controle sur le check digit
sMaChaineTraitee = Milieu(RegistreNational,1,2) + Milieu(RegistreNational,4,2) + Milieu(RegistreNational,7,2) + Milieu(RegistreNational,10,3)

nMonRegistre = Val(sMaChaineTraitee)
nCheck = Val(Milieu(RegistreNational,14,2))

nReste = modulo(nMonRegistre,97)
nControle = 97 - nReste

SI nControle = nCheck ALORS
	bReponse = Vrai
SINON
	bReponse = Faux
FIN

RENVOYER bReponse