طلب كيفية تحويل من RIP إلى CCP

إتصل ببريد الجزائر تجد الإجابة

ابعثلي الايميل ارسلك برنامج يعطيك حساب rip و ؤ cle

هذا برنامج مقطعي  في الاكسل vb يحسب مفتاحccp و مفتاح rip بدلالة رقم الحساب:
Public Function cle_ccp(y)
x = y + 10000000000#
 a13 = 13 * Mid(x, 2, 1)
 a12 = 12 * Mid(x, 3, 1)
 a11 = 11 * Mid(x, 4, 1)
 a10 = 10 * Mid(x, 5, 1)
 a9 = 9 * Mid(x, 6, 1)
 a8 = 8 * Mid(x, 7, 1)
 a7 = 7 * Mid(x, 8, 1)
 a6 = 6 * Mid(x, 9, 1)
 a5 = 5 * Mid(x, 10, 1)
 a4 = 4 * Mid(x, 11, 1)
b = a13 + a12 + a11 + a10 + a9 + a8 + a7 + a6 + a5 + a4
 
c = b Mod 100
 
If c < 10 Then k = "0" & c Else k = c
cle_ccp = k


End Function
Public Function rip_ccp(y)
x1 = y * 100#
 x = x1 Mod 97
' MOD CCP MOD 99999000000000000= 85=w

 w = 85
 If (x + w) > 97 Then c = (x + w) - 97 Else c = (x + w)

 d = 97 - c
 If d < 10 Then k = "0" & d Else k = d

rip_ccp = k



End Function

ما فهمنا والوا ياجماعة

merci pour le vba GLAZHARI
CE FICHIER EXCEL COMME EXEMPLE
FICHIER EXCEL

شكر على الإفادة ياجماعة بارك الله فيكم

الملف classeur محمي برقم سري إن أمكن الرقم من فضلك

بارك الله فيكم جميعا

ألف شكر الاخوة الافاضل

بارك الله فيك يا أخ glazhari

إجابة الأخ glazhari كانت بلغة البرمجة سأحاول أن أترجمها لكم
باللغة التي يفهمها الجميع أي العربية.



1- الحساب الجاري بدون مفتاح × 100
2- نقسم ناتج العملية رقم (1) على 97 و نحتفض بالباقي
3- نظيف العدد 85 إلى الباقي الناتج عن العملية رقم (2) 
   ثم ننظر إذا كان الناتج أقل من 97 نحتفض به أما إذا كان أكثر 
   من 97 فننقص منه العدد 97 و نحتفض بالباقي
4- نأخذ العدد 97 و ننقص منه ناتج العملية رقم (3) و الناتج هو رقم RIP 

ملاحظة : إذا كان الناتج النهائي أقل من 10 فنضيف له (0) على اليسار.


مثلا:

1) 4178451 × 100 = 417845100
2) (417845100/97) = 4307681 و الباقي 43
3) 58 + 43 = 101 و بما أنه أكثر من 97 فننقص منه 97 يبقى 4
4) 97 - 4 = 93 و هو رقم (RIP)

بالتوفيق للجميع

لي برنامج بدلفي مع كود سورس يحسب cle و rip و لكنى لا استطيع تحميله على المنتدى ارجو من اي عضو ان يرسل لي الايميل لارسل له البرنامج

ccpdou14البريد فى البيانات الشخصية

MERCIE