قواعد المشاركة في المنتدى

(قسم الاعلانات) الموضوع:سيرفر مخصص لجميع العاب البي سي بواسطة: (اسماء عومر) :: (منتدى Microsoft Visual Basic) الموضوع:ممكن مساعدة في برنامج بواسطة: (hasanqo) :: (قسم الاعلانات) الموضوع:مراكز صيانة موبايلات سامسونج المعتمدة في جميع محافظات مصر بواسطة: (المسوق252) :: (قسم الاعلانات) الموضوع:سيروم فيتامين سي فيلورجا بالمميزات والعيوب والسعر بواسطة: (المسوق252) :: (قسم الاعلانات) الموضوع:تعرف علي قصة مسلسل شديد الخطورة بواسطة: (نور زيدان) :: (قسم الاعلانات) الموضوع:افضل خدمة لنقل وتغليف الاثاث بواسطة: (alrsala740) :: (قسم الاعلانات) الموضوع:غرف ملابس حديثة – كرياتف جروب 01026185183 بواسطة: (bery besho) :: (قسم الاعلانات) الموضوع:غرف ملابس دريسنج روم – كرياتف جروب 01026185183 بواسطة: (bery besho) :: (قسم الاعلانات) الموضوع:سيور نقل المنتجات الصناعية-الغذائية من الهندسية ستيل بواسطة: (ولاء عبدالقادر) :: (قسم الاعلانات) الموضوع:شركة عزل بالقصيم ملاك سلمان بواسطة: (tas) :: (أخبار التكنولوجيا) الموضوع:مؤسسة الفجر -0558221788 بواسطة: (رفيف الحياه) :: (قسم الاعلانات) الموضوع:شركة شغالات بالشهر بواسطة: (زينب محمدي) :: (منتدى برمجة التقارير) الموضوع:برنامج محاسبة شركات المقاولات بواسطة: (alia24) :: (قسم الاعلانات) الموضوع:فني ستلايت حولي بواسطة: (اسماء عومر) :: (منتدى الأكسس) الموضوع:تغيير عنوان التقرير من النموذج دون فتحه بواسطة: (د.كاف يار) :: (قسم الاعلانات) الموضوع:هاك cheto شيتو بواسطة: (اسماء عومر) :: (قسم الاعلانات) الموضوع:شركات تركيب رخام بدبى 0582906045 العالمية الوطنية بواسطة: (امل بكير) :: (قسم الاعلانات) الموضوع:أدوات السباكة0554261039 الريادة بواسطة: (امل بكير) :: (قسم الاعلانات) الموضوع:موقع تنمية بشرية بواسطة: (اسماء عومر) :: (قسم الاعلانات) الموضوع:برنامج فيوتشر تيك بواسطة: (ضياء روحي)

المواضيع المثبته: (منتدى مبرمجي ASP) الموضوع:دورة احترافيه لبناء منتدى على asp بواسطة: (عبدالله جابر شقليه) :: (قسم الدروس و الدورات) الموضوع:دورة شاملة في VB.Net المستوى الأول بواسطة: (مهند عبادي) :: (منتدى الكتب الالكترونية) الموضوع:موقع لتحقق من وجود الكتاب الذى تبحث عنه بواسطة: (يوسف) :: (منتدى الوورد والباور بوينت) الموضوع:برنامج عملاق باللغة العربية بواسطة: (هنوشه) :: (منتدى Microsoft SQL Server) الموضوع:كيف أقوم بنسخ البيانات فقط من جهازي الى الويب بواسطة: (أبو محمـد) :: (منتدى الوورد والباور بوينت) الموضوع:مكتبة الوورد بواسطة: (ramies) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:ما هي أوراكل وماتعرف عنها بواسطة: (وليد القدسي) :: (قسم المواضيع المميزة) الموضوع:المحاسب المميز - الاصدار الثاني - محاسبة و مخازن بواسطة: (alalal) :: (منتدى برمجة الجرافكس) الموضوع:الجزء الثانى من دروس تعلم GDI بواسطة: (alaa gomaa) :: (منتدى Borland Delphi) الموضوع:دورة تعليمية في تصميم دليل هاتف في دلفي بواسطة: (مهند عبادي) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:موسوعة كتب واسطوانات تعليم الشبكات Networking بواسطة: (مرحبا الساع) :: (منتدى البرامج) الموضوع:شروحات لبرامجك المفضلة بواسطة: (junkbki) :: (منتدى تحليل و تصميم نظم المعلومات) الموضوع:مراحل تحليل النظم لدراسة نظام قائم بواسطة: (jbsa) :: (منتدى Microsoft Excel) الموضوع:دروس إكسل و شرح الدوال و تقنيات متقدمة بواسطة: (صهيب جاويش) :: (منتدى Microsoft Visual Basic) الموضوع:دورة التعامل مع Data Report باستخدام ADODC ( شرح بالصور ) بواسطة: (Max Bayne) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:مكتبة الأمثلة والتطبيقات للغة #C بواسطة: (النور) :: (منتدى Borland Delphi) الموضوع:تحويل الأرقام إلى نص بواسطة: (مهند عبادي) :: (منتدى نظام تشغيل Linux) الموضوع:أوامر لينكس بواسطة: (khaled helal) :: (منتدى ADO.NET العام) الموضوع:ربط قاعدة البيانات والفرق بين الوضع المتصل والوضع المنفصل وشرحها بالتفصيل بواسطة: (علاء عبدالخالق) :: (القسم المفتوح) الموضوع:شاهد واشكر ربك على نعمة الاسلام بواسطة: (غزاوية أصيلة)

إضافة رد إضافة موضوع جديد

> تعديل تفقيط الأرقام بالدينار
Bookmark and Share
تقييم الموضوع Label معدل التقيم:0
مشاركةالأربعاء,01/جمادى الأولى/1439 هـ,09:11 مساءً
المشاركة #1

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 6
سجل في:الأربعاء,16/جمادى الأولى/1434 هـ,11:12 صباحاً
الدولة:البحرين
رقم العضوية: 102129



السلام عليكم ورحمة الله وبركاته
هل من الممكن مساعدتي في تعديل تفقيط الأارقام بالدينار
حيث إني أفتقد القراءة في الفاصلة العشرية الثالثة
وإذا ممكن وجود كلمة And من بعد الدينار
ولكم مني الشكر والتقدير






Option Compare Database
Option Explicit
Function ConvertCurrencyToEnglish(ByVal MyNumber)
Dim Temp
Dim Dinars, Fils
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Fils = ConvertTens(Temp)
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = ConvertHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dinars = Temp & Place(Count) & Dinars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
select Case Dinars
Case ""
Dinars = "Zero Dinar"
Case "One"
Dinars = "One Dinar"
Case Else
Dinars = Dinars & " Dinars"
End select
select Case Fils
Case ""
Fils = " Zero Fils Only"
Case "One"
Fils = " And One Fils Only"
Case Else
Fils = " And " & Fils & " Fils Only"
End select
ConvertCurrencyToEnglish = Dinars & Fils
End Function
Private Function ConvertDigit(ByVal MyDigit)
select Case Val(MyDigit)
Case 1: ConvertDigit = "One"
Case 2: ConvertDigit = "Two"
Case 3: ConvertDigit = "Three"
Case 4: ConvertDigit = "Four"
Case 5: ConvertDigit = "Five"
Case 6: ConvertDigit = "Six"
Case 7: ConvertDigit = "Seven"
Case 8: ConvertDigit = "Eight"
Case 9: ConvertDigit = "Nine"
Case Else: ConvertDigit = ""
End select
End Function
Private Function ConvertHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
If Left(MyNumber, 1) <> "0" Then
Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
End If
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & ConvertTens(Mid(MyNumber, 2))
Else
Result = Result & ConvertDigit(Mid(MyNumber, 3))
End If
ConvertHundreds = Trim(Result)
End Function
Private Function ConvertTens(ByVal MyTens)
Dim Result As String
If Val(Left(MyTens, 1)) = 1 Then
select Case Val(MyTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End select
Else

select Case Val(Left(MyTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End select
Result = Result & ConvertDigit(Right(MyTens, 1))
End If
ConvertTens = Result
End Function



حررت من قبل: slamco في الأربعاء,01/جمادى الأولى/1439 هـ,09:13 مساءً


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,29/شوال/1441 هـ,05:50 صباحاً
المشاركة #2

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 10
سجل في:الاثنين,24/شوال/1441 هـ,05:55 صباحاً
الدولة:أثيوبيا
رقم العضوية: 115915



السلام عليكم
هذا جيد جدا.
شكرا جزيلا.

bupropion uses


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة

    

عدد المتصفحين لهذا المنتدى «1»: (الضيوف «1» - المتخفون «0»)
الأعضاء «0»: .

إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,06:42 صباحاً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

منتديات المحيط العربي  -  راسلنا  -   أعلى
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)