[ تمت الإجابة ]سؤال حول مودويل التفقيط ( تحويل الأرقام لحروف )

وعليكم السلام : أخي الكريم .. أهلا بك في منتديات الفريق العربي .. قسم الأكسس

أرجو أخي غي المرات القادمة أن يكون عنوان المشاركة دالا على مضمونها

أنت تقصد بالتأكيد مودويل اللتفقيط .. مالشيء الغير واضح فيه ؟

EKSEER

اسف جدا اخوي لكن انا قصدت طريقة عمل مودويل اللتفقيط بالخطوات عشان انا حاولت استفيد من الامثلة الموجودة وبرضي لم تنفذ معي

وشكرا على اهتمامك

يمكن لم استطع شرح سؤالي بطريقة صحيحة

ارجو المعذرة

انا اريد كيفية عمل استدعاء الوحدة النمطية التي يعتمد عليها التفقيط

أخى mazin osman

كل ما عليك هو معرفة اسم الوحدة النمطية كالتالى

Public Function Horof(X)
	On Error Resume Next

ma = " جنيهاً "
Mi = " قرشاً "
ml = " قروش "
Mn = " جنيهات "

n = Int(X)
b = Val(Right(Format(X, "000000000000.00"), 2))
R = SHorof(n)
B1 = SHorof(b)
If R <> "" And b >= 0 Then result = R & ma & " و " & B1 & Mi & "فقط لاغير "
'If r <> "" And (b <= 9 And b >= 1) Then result = r & ma & " و" & b1 & ml & " فقط لا غير "
If R = "" And b <> 0 Then result = B1 & Mi & "فقط لاغير "
If R = "" And b = 0 Then result = ""
If R <> "" And b = 0 Then result = R & ma & "فقط لاغير "
Horof = result

	If Err = 440 Then
	MsgBox "عفواً تأكد من إدخالك قيمة صحيحة للمتابعة!!", vbInformation + vbOKOnly + vbMsgBoxRight, "تنبيه"

	End If

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

إذاً من هنا هذه الوحدة تستدعى عن طريق horof المكتوبة فى أول سطر Public Function

1- عمل وحدة نمطية جديدة ولصق هذه الأكود بداخلها و تسميتها أى اسم

2- الذهاب للفاتورة وعمل مربع نص يحتوى على القيمة الاجمالية وليكن = total

3- عمل مربع نص طويل ليظهر به التفقيط وليكن = tafqet

3- من مصدر عنصر التحكم الخاص بـ tafqet ستكتب الآتى

=Horof([total])

وستجد أن قيمة المبلغ الموجود بـ total تم تفقيطه فى مربع النص tafqet

إذا ظهرت معك أى مشكلة أخبرنا

اشكرك اخوىhongylover وحيقيقة كنت فاقد الامل في حل مشكلتي لكن الحمد لله وحابدا انفذ الخطوات

مشكووووووووووور وارد عليك اخوي جزاك الله خير

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة