منتدى باعرام

منتدى خاص يجمع بين التعارف واخذ المعرفة
 
الرئيسيةالبوابةالتسجيلدخول

ترحب ادارة المنتدى بجميع الاعضاء المشاركين في المنتدى

وتتمنى لهم الحصول على كل مايتمنونه وكل مايلبي طلباتهم

                                (إدارة المنتدى )

تصويت
مارايك في المنتدى
 ممتاز
 جيد جداً
 متوسط
استعرض النتائج
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» وظيفة شاغرة في شركة في مجال الاجهزة الكهربائية بمكة المكرمة
الإثنين أغسطس 12, 2013 9:47 pm من طرف 

» مشاري العرادة (انشودة صلى عليك الله ياسيد الاكوان)
الأربعاء فبراير 13, 2013 9:31 am من طرف 

» يارفيقي ( رائعة مشاري العراده و أحمد الهاجري
الأربعاء فبراير 13, 2013 9:16 am من طرف 

» اهداء الى كل صديقين متحابين في الله
الأربعاء فبراير 13, 2013 9:02 am من طرف 

»  الآن من هنا النتائج النصفية لمدارس مديرية حريضة
الإثنين فبراير 11, 2013 2:15 am من طرف سليمان الأهدل

» نظام إدارة الحسابات الخيرية
الخميس ديسمبر 20, 2012 10:15 pm من طرف سليمان الأهدل

» مبرمج تحت الطلب
الخميس ديسمبر 20, 2012 10:07 pm من طرف سليمان الأهدل

» قصيدة جديدة بعنوان عشق حريضه
الخميس نوفمبر 22, 2012 12:29 am من طرف الشاعر محمد سعيد باعرام

» جديد هاني دعكيك و ماجد التريمي ابو حسان
الجمعة أكتوبر 12, 2012 8:42 pm من طرف الشاعر هاني دعكيك

شات المنتدى
للدخول الى المحادثة الفورية انقر هنا
او انقر هنا
لمشاهدة اي مكان بالعالم
لمشاهدة اي مكان في العالم انقر هنا
تصفح القرآن الكريم
تصفح القرآن الكريم بكل سهولة ويسر من هنا


منتدى باعرام يرحب بك وهذه الرسالة تفيد أنك غير مسجل .

و يسعدنا كثيرا انضمامك لنا ...

للتسجيل اضغط هـنـا

دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر

شاطر | 
 

 محول الارقام إلى حروف

اذهب الى الأسفل 
كاتب الموضوعرسالة
سليمان الأهدل

سليمان الأهدل

عدد المساهمات : 31
نقاط : 85
تاريخ التسجيل : 21/03/2012
العمر : 39

مُساهمةموضوع: محول الارقام إلى حروف   الأربعاء مارس 28, 2012 1:58 am

ضع هذا في الموديل
Public Function Horof(X)
N = Int(X)
B = Val(Right(Format(X, "000000000000.00"), 2))
R = SHorof(N)
If R <> "" And B > 0 Then Result = R & Ma & " و " & B & Mi
If R <> "" And B = 0 Then Result = R & Ma
If R = "" And B <> 0 Then Result = B & Mi
Horof = Result

End Function
Private Function SHorof(X)

N = Int(X)
C = Format(N, "000000000000")
C1 = Val(Mid(C, 12, 1))
Select Case C1
Case Is = 1: Letter1 = "واحد"
Case Is = 2: Letter1 = "اثنان"
Case Is = 3: Letter1 = "ثلاثة"
Case Is = 4: Letter1 = "اربعة"
Case Is = 5: Letter1 = "خمسة"
Case Is = 6: Letter1 = "ستة"
Case Is = 7: Letter1 = "سبعة"
Case Is = 8: Letter1 = "ثمانية"
Case Is = 9: Letter1 = "تسعة"
End Select

C2 = Val(Mid(C, 11, 1))
Select Case C2
Case Is = 1: Letter2 = "عشر"
Case Is = 2: Letter2 = "عشرون"
Case Is = 3: Letter2 = "ثلاثون"
Case Is = 4: Letter2 = "اربعون"
Case Is = 5: Letter2 = "خمسون"
Case Is = 6: Letter2 = "ستون"
Case Is = 7: Letter2 = "سبعون"
Case Is = 8: Letter2 = "ثمانون"
Case Is = 9: Letter2 = "تسعون"
End Select

If Letter1 <> "" And C2 > 1 Then Letter2 = Letter1 + " و" + Letter2
If Letter2 = "" Then Letter2 = Letter1
If C1 = 0 And C2 = 1 Then Letter2 = Letter2 + "ة"
If C1 = 1 And C2 = 1 Then Letter2 = "احدى عشر"
If C1 = 2 And C2 = 1 Then Letter2 = "اثنى عشر"
If C1 > 2 And C2 = 1 Then Letter2 = Letter1 + " " + Letter2
C3 = Val(Mid(C, 10, 1))
Select Case C3
Case Is = 1: Letter3 = "مائة"
Case Is = 2: Letter3 = "مئتان"
Case Is > 2: Letter3 = Left(SHorof(C3), Len(SHorof(C3)) - 1) + "مائة"
End Select
If Letter3 <> "" And Letter2 <> "" Then Letter3 = Letter3 + " و" + Letter2
If Letter3 = "" Then Letter3 = Letter2

C4 = Val(Mid(C, 7, 3))
Select Case C4
Case Is = 1: Letter4 = "الف"
Case Is = 2: Letter4 = "الفان"
Case 3 To 10: Letter4 = SHorof(C4) + " آلاف"
Case Is > 10: Letter4 = SHorof(C4) + " الف"
End Select
If Letter4 <> "" And Letter3 <> "" Then Letter4 = Letter4 + " و" + Letter3
If Letter4 = "" Then Letter4 = Letter3
C5 = Val(Mid(C, 4, 3))
Select Case C5
Case Is = 1: Letter5 = "مليون"
Case Is = 2: Letter5 = "مليونان"
Case 3 To 10: Letter5 = SHorof(C5) + " ملايين"
Case Is > 10: Letter5 = SHorof(C5) + " مليون"
End Select
If Letter5 <> "" And Letter4 <> "" Then Letter5 = Letter5 + " و" + Letter4
If Letter5 = "" Then Letter5 = Letter4

C6 = Val(Mid(C, 1, 3))
Select Case C6
Case Is = 1: Letter6 = "مليار"
Case Is = 2: Letter6 = "ملياران"
Case Is > 2: Letter6 = SHorof(C6) + " مليار"
End Select
If Letter6 <> "" And Letter5 <> "" Then Letter6 = Letter6 + " و" + Letter5
If Letter6 = "" Then Letter6 = Letter5
SHorof = Letter6

End Function
الآن أضف إلى الفورم Text و Command
الآن أدخل هذه الشفرت في ال Command في حدث Click
strN = Horof(Text1.text)
msgbox strN
جرب البرنامج الآن وذلك بالضغط على F5
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://www.facebook.com/suliman.alahdal
 
محول الارقام إلى حروف
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى باعرام :: منتديات باعرام :: منتدى البرمجة-
انتقل الى: