[hicham716]

السلام عليكم ورحمة الله وبركاته
 احتاج الى الكود سورس لبرنامج vb6 
لتحويل الارقام الى حروف مع الفاصلة (الاجزاء) و بالدرهم
مثال
يحول 23.55 الى ثلاثة وعشرون درهما و خمسة و خمسون سنتيما
جزاكم الله خيرا

[الوادي]

يا هشام،

بامكانك البحث في المنتدى، فهذا الموضوع متوفر بكثرة

فقط اكتب (تفقيط) في مستطيل البحث في الأعلى يسارا مثل هذه الصورة

[hicham716]

الله الله
ولا اروع
الله يجزيكم بالف خير
وعيد مبارك سعيد

---

هذا ماكنت ابحث عنه بالضبط
بقي شيء بسيط جدا اذا كان بإمكان احد الاخوة يصلحه
وهـــــــــــــــو:
الرقم 2 يكتب --درهمان-- بدل-- اثنان درهما -- نفس الشيء بالنسبة لـ 102و1002 و 10002......
العدد 5 يكتب -- خمسة دراهم -- بدل --خمسة درهما-- نفس الشيء بالنسبة لـ للاعداد من 3 الى 10 و من 3 الى 10 بعد المائة والالف ......
و "درهم" بالنسبة للاعداد 1 و 100 و 101 و 1000 و 1001 درهم ..............

[الوادي]

يا أمير (إسم على مسمى)،

فتحت المرفق بالمفكرة ونقلت كود الموديول لل VB.NET لتجربته،

طبعا اضطررت لوضع التعريفات التالية

PHP كود :

Dim LE, p, PS, POUNDS, V, VPS, Result, WORDINTEGER, WORDPS, n, c, C1, str1, C2, str2, C3, str3, C4, str4, C5, str5, C6, str6 


بالاضافة لوضع كلمة Strings قبل كل من الكلمات Right وLeft

فكانت النتيجة (ولا أروع) سرقت التعبير من هشام.

[الوادي]

يا أمير (إسم على مسمى)،

كل مالك تكبر في نظري.

---

أنتم كبير من قبل.....

[hicham716]

----------------------------
المعذرة اخي
انت و ضعت الفاصلة هكذا (,) بدل (.)
الله يجعل هذا المجهود في ميزان حسناتك

---

جرب هذا العدد
101,01
يطلع هكذا
مائة ودرهم درهما ودرهم سنتيما ...

[hicham716]

If Text1.Text >= 3 And Text1.Text <= 10 Then
هذه الطريقة تكون مطردة لكل اخر رقمين على اليمين وقبل الفاصلة 1005.56
الان فهمت الطريقة ان شاء الله سأحول بنفسي
الله يحفظك و يحفظ باقي الاخوة بهذا المنتدى الهادف