📘 ❞ تعلم التفقيط في اكسل ❝ كتاب

عن كتاب تعلم التفقيط في اكسل:
اعزائي واحبابي واصدقائي الطلاب هذا درس مهم ومفيد لكل طالب اراد تعلم برنامج اكسل .


الدرس هو التفقيط :


التفقيط: تحويل الأعداد إلى كلمات


التفقيط هو تحويل الأرقام إلى كلمات، مثلا 145 تصبح مئة وخمسة وأربعون. وسمي تفقيطا، لأنه كان يقال، خمس وأربعون دينارا فقط. يحتاج إليه في برمجيات المحاسبة، وفي قراءة النصوص، وغيرها، والحاجة إلى برمجية مفتوحة المصدر في هذا المجال مهم جدا، لاسيما مكتبات تدمج في تطبيقات أخرى.


وهو مجاني للجميع يمكنكم تحميله من الرابط ولا تنسوني من صالح دعائكم وهو بالصور سلس وسهل وبسيط يمكنك مشاركته للفائدة والسلام عليكم ورحمة الله تعالى وبركاته


اخوكم المهندس احمد حجي مللي

تأليف: المهندس احمد حجي مللي




تعلم التفقيط في اكسل 2010
اعداد المهندس أحمد حجي مللي
هذا العمل مجاني للجميع وحقوق الاستخدام والنشر لكل مسلم رجاء دعوة صالحة بظهر الغيب
1435


Private Function Value(ByVal Num As String) As String
If Num = "0" Then
Value = ""
GoTo finish
End If
If Num = "1" Then
Value = "واحد "
GoTo finish
End If
If Num = "2" Then
Value = "اثنان "
GoTo finish
End If
If Num = "3" Then
Value = "ثلاثة "
GoTo finish
End If
If Num = "4" Then
Value = "اربعة "
GoTo finish
End If
If Num = "5" Then
Value = "خمسة "
GoTo finish
End If
If Num = "6" Then
Value = "ستة "
GoTo finish
End If
If Num = "7" Then
Value = "سبعة "
GoTo finish
End If
If Num = "8" Then
Value = "ثمانية "
GoTo finish
End If
If Num = "9" Then
Value = "تسعة "
GoTo finish
End If
finish:
End Function
Private Function Value2(ByVal Num As String) As String
Dim num1 As String
Dim num2 As String
Dim ben As String
num2 = Left(Num, 1)
num1 = Right(Num, 1)
If num2 = "1" Then
Value2 = "عشر "
GoTo finish
End If
If num2 = "2" Then
Value2 = "عشرون "
GoTo finish