bon soir
J'ai un numéro de compte contient 10 ou 9 ou 8 ou bien 7 numéro et je veux trouver le clé de ce compte
Par exemple 1012344597
C'est comme ça de droite à gauche
on commence avec fois *4 , *5, *6 ……….
(13*1)+(12*0)+(11*1)+(10*2)+(9*3)+(8*4)+(7*4)+(6*5)+(5*9)+(4*7)
= 13+0+11+20+27+32+28+30+45+28
=234
le clé et 34
J'ai essai ce code mais ça n'a pas marché
Dim text As String = TextBox1.Text
Dim str1 As String = Microsoft.VisualBasic.Right(text, 1)
Dim str2 As String = Microsoft.VisualBasic.Right(text, 2)
Dim str3 As String = Microsoft.VisualBasic.Right(text, 3)
Dim str4 As String = Microsoft.VisualBasic.Right(text, 4)
Dim str5 As String = Microsoft.VisualBasic.Right(text, 5)
Dim str6 As String = Microsoft.VisualBasic.Right(text, 6)
Dim str7 As String = Microsoft.VisualBasic.Right(text, 7)
Dim str8 As String = Microsoft.VisualBasic.Right(text, 8)
TextBox2.Text = Val(str1 * 4) + Val(str2 * 5) + Val(str3 * 6) + Val(str4 * 7) + Val(str5 * 8) + Val(str6 * 9) + Val(str7 * 10) + Val(str8 * 11)
et merci
Partager