أرجو مساعدتي لتحويل هذا الكود أرجوكم

[المسلم العربي]

السلام عليكم ورحمة االله تعالى وبركاته.

هذا الكود هو  لحساب مفتاح رقم الضمان الاجتماعي (CLE )
وذلك بلغة windev.

و أريد تغيير هذه البرمجة إلى لغة VBA 

ساعدوني أرجوك يا خبراء البرمجة

( Calculer la Clé de N° de sécurité Sociale (Algérie//
Procédure Windev // 

(PROCEDURE CleSS(nSS,nCle
sNuméroSS est une chaîne = nSS
nLongueur est un entier = 0
nIndice est un entier = 0
nCheck est un entier = 0
nNum est un entier = 0

bVerif est un booléen = Vrai

Pour vérifier la taille du numéro SS// 
(nLongueur = Taille(sNuméroSS

? La taille est - elle correcte//

SI nLongueur = 0 OU nLongueur <> 10 ALORS
bVerif = Faux 
FIN

" Le numéro ne contient que des "0//
SI sNuméroSS = Répète("0",10) ALORS
bVerif = Faux 
FIN

(nTaille est un entier = Taille(sNuméroSS
Tester si chaque caractère est bien un chiffre// 
POUR nIndice = 1 A nTaille
Le numéro contient un "0" ou un caractère// 
SI Val(sNuméroSS[[nIndice]]) = 0 ET sNuméroSS[[nIndice]] <> "0" ALORS 
("Info("Veuillez saisir un numéro valide","Seulement les chiffres sont autorisés 
bVerif = Faux 
FIN 
FIN


Déterminer la validité du code selon l'algorithme de la clé de sécurité sociale// 
Comptage de la première série de nombres//
XXXXXXXXXX//

Somme de cette série pour obtenir eCheck//
POUR nIndice = nLongueur-1 A 1 PAS -2
([[nNum = Val(sNuméroSS[[nIndice A nIndice 
nCheck += nNum*2 
FIN

xxxxx//
Comptage de la seconde série de nombres//
Somme de cette série pour obtenir eCheck//
POUR nIndice = nLongueur A 2 PAS -2
([[nNum = Val(sNuméroSS[[nIndice A nIndice 
nCheck += nNum 
FIN

99 - la somme totale = la clé SS//
SI bVerif = Faux OU nCheck > 99 ALORS
"nCle = "ER 
SINON
nCle = 99 - nCheck 

FIN

و شكرا لمنتدانا الغالي تعلمنا منكم الكثير 

 

[المسلم العربي]

أتمنى مساعدتي لكل عباقرة البرمجة

[ياسر خليل أبو البراء]

الأفضل أخي الكريم أن تقوم بشرح المعطيات لأن اللغة المكتوب بها الكود قد لا يعرفها الأعضاء .. لذا قمت بالتوضيح والتفصيل لكيفية حساب المفتاح مع وضع بعض الأمثلة لتتضح الصورة وإن شاء الله تجد استجابة من إخوانك بالمنتدى