التعديل على كود

[كريمو2]

السلام عليكم اخواني

رمضان كريم ان شاء الله

اللهم ارفع عنا الوباء و البلاء ببركة الشهر الفضيل يارب

لدي كود معادلة من ملف اكسل حاولت تغيره للأكسس ولكن مافلحت وخاصة في الدالة MOD

Function RIP_AVANT(RIP_AVAT) As Integer
RIP_AVANT=IIF((IIF(MOD(100*NCompte,97)>12,97-(MOD(100*NCompte,97)-12),12-MOD(100*NCompte,97)))<10,"0"&(IIF(MOD(100*NCompte,97)>12,97-(MOD(100*NCompte,97)-12),12-MOD(100*NCompte,97))),(IIF(MOD(100*NCompte,97)>12,97-(MOD(100*NCompte,97)-12),12-MOD(100*NCompte,97))))
End Function

ارجو التعديل وشكرا لكم 

تم تعديل أبريل 23, 2020 بواسطه كريمو2

[Gamal.Saad]

في الاكسل تكون الصيغة :

=IF(MOD(100*NCompte;97)>12;97-MOD(100*NCompte;97)-12;12-MOD(100*NCompte;97))

بينما في أكسس :

=IIf((100*NCompte) Mod 97>12, 97-((100*NCompte) Mod 97) -12,12 -(100*NCompte) Mod 97)

والكود ككل يكون كالتالي يكن يحتاج مراجعة النتائج :

=IIf(IIf((100 * NCompte) Mod 97 > 12, 97 - ((100 * NCompte) Mod 97) - 12, 12 - (100 * NCompte) Mod 97) < 10, "" _
    & "0" & IIf((100 * NCompte) Mod 97 > 12, 97 - ((100 * NCompte) Mod 97) - 12, 12 - (100 * NCompte) Mod 97), "" _
    & IIf((100 * NCompte) Mod 97 > 12, 97 - ((100 * NCompte) Mod 97) - 12, 12 - (100 * NCompte) Mod 97))

 

[كريمو2]

شكرا لك أخي على الفكرة التي كانت غائبة عني

ملاحظة : لم يفي بالنتيجة الصحيحة ولكن اجريت عليه بعض التعديلات

NCompte = IIf((IIf((100 * N°_Compte_du_Titulaire Mod 97) > 12, 97 - ((100 * N°_Compte_du_Titulaire Mod 97) - 12), 12 - (100 * N°_Compte_du_Titulaire Mod 97))) < 10, _
 "0" & IIf((100 * N°_Compte_du_Titulaire Mod 97) > 12, 97 - ((100 * N°_Compte_du_Titulaire Mod 97) - 12), 12 - (100 * N°_Compte_du_Titulaire Mod 97)), _
 IIf((100 * N°_Compte_du_Titulaire Mod 97) > 12, 97 - ((100 * N°_Compte_du_Titulaire Mod 97) - 12), 12 - (100 * N°_Compte_du_Titulaire Mod 97)))