تعديل فى كود تحويل الارقام الى حروف

[م. خالد البقار]

ارجو منكم المساعدة فى تعديل الملف المرفق الذي يحتوي على كود لتحويل الارقام الى حروف

بحيث يتم التعديل لتظهر قيمة الدرهم ثلاثة ارقام بدل من رقمين

kfb.zip

[نزار سليمان عيد]

اخي baggar

انظر المرفق

kfb.zip

[م. خالد البقار]

الاخ/ نزار سليمان عيد

شكرا لك على الرد هذا ماكنت ابحث عنه

اكرر شكري وتقدير الليك

[م. خالد البقار]

الاخ/ نزار سليمان عيد

سؤال بسيط كيف تم تعديل الكود؟؟

حيث لدي ملفات تحتوي على الكود القديم للمعادلة ولم تم نسخ الكود الجديد لم يقبل التعديل

[نزار سليمان عيد]

اخي مـ . خالد

التغيير في الفقر الرابعة من الكود وبالتحديد في

B = Val(Right(Format(x, "000000000000.000"), 3))

رقم 3 وكذلك الثلاثة اصفار من بعد الفاصالة يعني لو اردناه يكتب خانتين تكون الصيغة كالاتي

B = Val(Right(Format(x, "000000000000.00"), 2))

فتجد عند تغيير الرقم الى 2 تم تغيير الاصفار بعد الفاصلة الى صفرين

ارجو ان يكون الشرح واضح

تحياتي لك