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

[الشربيني123]

السلام عليكم ورحمة الله .اعضاء المنتدى المحترمين ..كيف يتم تحويل عدد الأيام الارقام الي حروف ؟ 3 أيام مثلا  7 أيام 1 يوم 

اذا كان هناك كود ارجو توضيح اين يضع الكود في التقرير 

مع الشكر للجميع 

[ابو جودي]

هات مرفق

[الشربيني123]

السلام عليكم اخي الحبيب ابا جودي .كل سنة وانت طيب انت واسرتك الكريمة 

مرفق الملف وستجد التقرير فيه 

مع الشكر 

 

25.rar

تم تعديل يونيو 2, 2019 بواسطه الشربيني123
تصحيح الملف

[ابو جودي]

36 دقائق مضت, الشربيني123 said:

السلام عليكم اخي الحبيب ابا جودي .كل سنة وانت طيب انت واسرتك الكريمة 

مرفق الملف وستجد التقرير فيه 

مع الشكر 

 

25.rar 698.6 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

انهو مربع نص عاوز تغير قيمته

[الشربيني123]

عدد العوارض التي حصل عليها الموظف ..   3  في التقرير RS

عدد الاعتيادي الذي حصل عليه الموظف   0 

[ابو جودي]

8 دقائق مضت, الشربيني123 said:

عدد العوارض التي حصل عليها الموظف ..   3  في التقرير RS

عدد الاعتيادي الذي حصل عليه الموظف   0 

اتفضل

 

25.accdb

[ابو جودي]

Public Function numbr(myData)

myData = Replace(myData, "1", "يوم")
myData = Replace(myData, "2", "يومان")
myData = Replace(myData, "3", "ثلاثة أيام")
myData = Replace(myData, "4", "أربعة أيام")
myData = Replace(myData, "5", "خمسة أيام")
myData = Replace(myData, "6", "ستة أيام")
myData = Replace(myData, "7", "سبعة أيام")
myData = Replace(myData, "8", "ثمانية أيام")
myData = Replace(myData, "9", "تسع أيام")
myData = Replace(myData, "9", "عشرة أيام")



numbr = myData

End Function

 

[الشربيني123]

انا  ما عارف اقول لك ايه ..عاجز عن شكرك .. اسأل الله تعالى ان يزيدك نور وعلم ويحفظك انت واسرتك من كل شر 

[ابو جودي]

اخى الحبيب لا انتظر ان تقول اى شئ

يكفينى سعادتك بوجودك للحل الذى كنت تتمناه فقط 

وحزاكم الله خيرا على دعواتكم الطيبة اسال الله ان يرزقكم بأكثر ما دعوتم لى 

لو الطربقة فى الحل تحتاج لشرح لا تتردد

[الشربيني123]

أشكرك اخي وحبيبي ( محمد عصام ) ابا جودي لو جميع المعلمين في العالم العربي في نصف اخلاقك وعطائك لكنا اسياد العالم .....ربنا ما يحرمني من اخلاقك و ذوقك 

اخوك مصطفى