طلب دالة تفقيط لبرنامج فايل ميكر

[تاج القلوب]

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

احبتي في الله 

يسعدني ان اكون احد اعضاء هذا المنتدى الرائع والذي يضم كوكبة من المبدعين ...

 

احبتي 

ابحث عن دالة تفقيط العملات (الريال العماني-بيسة) يمكن استخدامها في برنامج الفايل ميكر

 

سأرفق لكم صورة تبين لكم ذلك

 

لكم كل الود والاحترام 

 

سبحان الله وبحمده سبحان الله العظيم

[تاج القلوب]

مرحبا انا عملت على هذا الدالة 

ولكن في الاساس دالة انجليزية 

اريد من اصحاب الخبرة مساعدتي مرفق لكم الدالة وصورة لقراءة الدالة 

 

هذا الدالة يلي عملت عليها اريد اصحاب الخبره مساعدتي 

اقتباس

Choose(Int(Mod(NumberField;10^12) / 10^11); ""; "مئة ريال عُماني "; "مئتان ريال عُماني "; "ثلاثمائة ريال عُماني "; "أربعمائة ريال عُماني "; "خمسمائة ريال عُماني "; "ستمائة ريال عُماني "; "سبعمائة ريال عُماني "; "ثمانمائة ريال عُماني "; "تسعمائة ريال عُماني ") &
If(Int(Mod(NumberField;10^11) / 10^10) = 1;
Choose(Int(Mod(NumberField;10^10) / 10^9); "عشرة "; "أحدى عشر "; "اثنا عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Int(Mod(NumberField;10^11) / 10^10); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Int(Mod(NumberField;10^10) / 10^9); ""; "واحد "; "أثنان "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) &
Case(Int(Mod(NumberField;10^12)/10^9) and Int(Mod(NumberField;10^9) / 10^3); "بليون; "; Int(Mod(NumberField;10^12)/10^9);"بليون ";"")
&
Choose(Int(Mod(NumberField;10^9) / 10^8); ""; "مئة "; "مئتان "; "ثلاثمائة "; "أربعمائة "; "خمسمائة "; "ستمائة "; "سبعمائة "; "ثمانمائة "; "تسعمائة ") &
If(Int(Mod(NumberField;10^8) / 10^7) = 1;
Choose(Int(Mod(NumberField;10^7) / 10^6); "عشرة "; "أحدى عشر "; "اثنا عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Int(Mod(NumberField;10^8) / 10^7); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Int(Mod(NumberField;10^7) / 10^6); ""; "واحد "; "اثنان "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) &
Case(Int(Mod(NumberField;10^9)/10^6) and Int(Mod(NumberField;10^6) / 10^3); "مليون; "; Int(Mod(NumberField;10^9)/10^6);"مليون ";"")
&
Choose(Int(Mod(NumberField;10^6) / 10^5); ""; "مئة "; "مئتان "; "ثلاثمائة "; "أربعمائة "; "خمسمائة "; "ستمائة "; "سبعمائة "; "ثمانمائة "; "تسعمائة ") &
If(Int(Mod(NumberField;10^5) / 10^4) = 1;
Choose(Int(Mod(NumberField;10^4) / 10^3); "عشرة "; "احدى عشر "; "اثنا عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Int(Mod(NumberField;10^5) / 10^4); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Int(Mod(NumberField;10^4) / 10^3); ""; "واحد "; "اثنا "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) &
Case(Int(Mod(NumberField;10^6)/10^3) and Int(Mod(NumberField;10^3) / 10^0); "ألف; "; Int(Mod(NumberField;10^6)/10^3);"ألف ";"")
&
Choose(Int(Mod(NumberField;10^3) / 100); ""; "مئة "; "مئتان "; "ثلاثمائة "; "أربعمائة "; "خمسمائة "; "ستمائة "; "سبعمائة "; "ثمانمائة "; "تسعمائة ") &
If(Int(Mod(NumberField;100) / 10) = 1;
Choose(Int(Mod(NumberField;10)); "عشرة "; "احدى عشر "; "اثنا عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Int(Mod(NumberField;100) / 10); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Int(Mod(NumberField;10)); ""; "واحد "; "اثنان "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) & Case(Int(NumberField) > 1; "ريال عُماني"; Int(NumberField) = 1; "ريال عُماني"; "")
&
If(Mod(NumberField; 1) and Int(NumberField);" و ";"") &
If(Mod(Int(NumberField*10); 10) = 1;
Choose(Mod(Int(NumberField*100); 10); "عشرة "; "أحدى عشر "; "أثنى عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Mod(Int(NumberField*10); 10); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Mod(Int(NumberField*100); 10); ""; ",واحد "; "اثنين "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) &
Case(Mod(NumberField; 1) > .01; "بيسة"; Mod(NumberField; 1) = .01; "بيسة";"")

 

تفقيط.docx

[jjafferr]

وعليكم السلام 🙂

 

حيا الله ولد بلادي 🙂

احنا هنا في قسم الاكسس ، وما عندنا قسم مال الفايل ميكر في المنتدى !!

فما اقدر افيدك ، وان شاء الله يكون بيننا من يعرف الفايل ميكر ، ويرد عليك 🙂

 

اما اذا عندك سؤال في الاكسس ، تلقانا هبة ريح ان شاء الله 🙂

 

جعفر

[تاج القلوب]

اهلين فيك اخي العزيز 

اشكرك على الرد 

في الحقيقة اعرف انه قسم اكسس 

ربما اجد من يساعدني في هذا الموضوع 

 

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

 

اشكرك واشكر القائمين على هذا الموقع

3 ساعات مضت, jjafferr said:

وعليكم السلام 🙂

 

حيا الله ولد بلادي 🙂

احنا هنا في قسم الاكسس ، وما عندنا قسم مال الفايل ميكر في المنتدى !!

فما اقدر افيدك ، وان شاء الله يكون بيننا من يعرف الفايل ميكر ، ويرد عليك 🙂

 

اما اذا عندك سؤال في الاكسس ، تلقانا هبة ريح ان شاء الله 🙂

 

جعفر

اشكرك على الرد 

يا ولد بلادي 

وبارك الله فيك 

[أ / محمد صالح]

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين
https://www.mr-mas.com/p/tafqeet.html

وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba
تابعونا