اخى العزيز المتألق دائما الاستاذ // بن عليه حاجى
طابت أوقاتكم بكل خير وجزاكم الله خيرا
واسمح لى بهذا التعديل البسيط حتى تكون عملية
التفقيط سليمة .... تم حذف " كلمة فقط من الكود لتصبح لاغير"
والشكر لاخى الاستاذ الفاضل // طارق الذى جمعنا بتلك المشاركة الطيبة
دمتم فى أمان الله ........ تقبلوا وافر تقديرى واحترامى
' تم إضافة كلمة لا غير في آخر التفقيط بواسطة محمد صالح
Dim m
m = " لا غيرَ"
ArbNum2Text = Negative & _
B_Only(CDec(myNz(InNum, 0)), vArabic, CByte(myNz(CurrencySex)), _
CByte(myNz(DecimalPlaces)), CStr(myNz(CurrencySingle)), _
CStr(myNz(CurrencyPlural)), CByte(myNz(FractionSex)), _
CStr(myNz(FractionSingle)), CStr(myNz(FractionPlural)), _
CByte(myNz(FractionType))) & m
End Function