الارقام

[mostafa albatrawy]

السلام عليكم اخواني الاعزاء .

اريد المساعدة .

قمت بعمل برنامج يتم فية حساب مجميع معينة والسؤال هنا اريد :

1- اريد ان يقوم البرنامج بتفقيط مجموع معين مثلا 144 ويكتب ( مائة واربعة واربعين ) .

2- ان يكون لدية القدرة على قرلء الشهر الحالي الموجود بالكمبيوتر (مارس مثلا ) .

وشكرا

[Dream_Works]

السلام عليكم

1- اريد ان يقوم البرنامج بتفقيط مجموع معين مثلا 144 ويكتب ( مائة واربعة واربعين ) .

بالنسبة لموضوع التفقيط .. الرجاء النظر في الرابط التالي

تفقيط الأرقام

2- ان يكون لدية القدرة على قرلء الشهر الحالي الموجود بالكمبيوتر (مارس مثلا ) .

بالنسبة للشهر الحالي بالعربي ... فقد كتبت كود بسيط مؤخراً لهذا الغرض ... يمكنك وضعه في داله أو أي مكان

Dim MonthName as String
MonthName = Choose(Month(Date), _
             "يناير", _
            "فبراير", _
            "مارس", _
            "أبريل", _
            "مايو", _
            "يونيو", _
            "يوليو", _
            "أغسطس", _
            "سبتمبر", _
            "أكتوبر", _
            "نوفمبر", _
            "ديسمبر")

[mostafa albatrawy]

شاكر جدا على حسن الرد وحسن المجهود

ولكن برجاء التطبيق على مثال .

وشكرا

[Dream_Works]

تفضل أخي الكريم

المثال المطلوب

يمكنك رؤية الاستعلام No-Meeting و الكود الموجود في Module 1 في الملف