ماهي طريقة تحويل الارقام إلى نصوص ( تفقيط) - معدل

[SAS603]

السلام عليكم ورحمة الله وبركاته 

 

هذا اول موضوع لي في منتداكم الرائع جدا 

 

ولدي سئوال عن برنامج الأكسس 

 

هل هناك كود او برمجة معينة لتجويل الارقام إلى نصوص في الأكسس 

 

كمثال  كتابة العدد 12 في خانة  ويقوم البرنامج في كتابة ( إثنى عشر ) في خانة اخرى . 

 

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

 

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

 

وتقبلو فائق التحية والتقدير  

 

أخوكم  / سليمان  

[أبو آدم]

جرب استخدام خاصية البحث في المنتدى

ابحث عن : تفقيط

[baraa2007]

=Horof([Text73])

Public Function Horof(X)
     Ma = " جنيه"
     Mi = " قرش"
     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

تم تعديل يونيو 29, 2014 بواسطه أبو آدم
احتواء الكود

[علي المصري]

http://www.officena.net/ib/index.php?showtopic=42832&hl=درجات

[aliamen1966]

السلام عليكم

اخ سليمان

هل وجدت حل لمشكلة التفقيط ؟

 

اذا لم تجد بعد ... ف ارجو منك اخباري ....  لارسل لك مثال بيسط جدا للتفقيط بالعربي و الانجليزي

 

اخوك

ابو فهد

تم تعديل يوليو 7, 2014 بواسطه aliamen1966

[علي المصري]

مرفق به التفقيط باللغة الانجليزية واللغة العربية

Ali2 Tafkeet.rar