تاج القلوب قام بنشر نوفمبر 3, 2019 قام بنشر نوفمبر 3, 2019 السلام عليكم ورحمة الله بركاته احبتي في الله يسعدني ان اكون احد اعضاء هذا المنتدى الرائع والذي يضم كوكبة من المبدعين ... احبتي ابحث عن دالة تفقيط العملات (الريال العماني-بيسة) يمكن استخدامها في برنامج الفايل ميكر سأرفق لكم صورة تبين لكم ذلك لكم كل الود والاحترام سبحان الله وبحمده سبحان الله العظيم
تاج القلوب قام بنشر نوفمبر 3, 2019 الكاتب قام بنشر نوفمبر 3, 2019 مرحبا انا عملت على هذا الدالة ولكن في الاساس دالة انجليزية اريد من اصحاب الخبرة مساعدتي مرفق لكم الدالة وصورة لقراءة الدالة هذا الدالة يلي عملت عليها اريد اصحاب الخبره مساعدتي اقتباس 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, 2019 قام بنشر نوفمبر 3, 2019 وعليكم السلام 🙂 حيا الله ولد بلادي 🙂 احنا هنا في قسم الاكسس ، وما عندنا قسم مال الفايل ميكر في المنتدى !! فما اقدر افيدك ، وان شاء الله يكون بيننا من يعرف الفايل ميكر ، ويرد عليك 🙂 اما اذا عندك سؤال في الاكسس ، تلقانا هبة ريح ان شاء الله 🙂 جعفر
تاج القلوب قام بنشر نوفمبر 3, 2019 الكاتب قام بنشر نوفمبر 3, 2019 اهلين فيك اخي العزيز اشكرك على الرد في الحقيقة اعرف انه قسم اكسس ربما اجد من يساعدني في هذا الموضوع والسلام عليكم ورحمة الله وبركاته اشكرك واشكر القائمين على هذا الموقع 3 ساعات مضت, jjafferr said: وعليكم السلام 🙂 حيا الله ولد بلادي 🙂 احنا هنا في قسم الاكسس ، وما عندنا قسم مال الفايل ميكر في المنتدى !! فما اقدر افيدك ، وان شاء الله يكون بيننا من يعرف الفايل ميكر ، ويرد عليك 🙂 اما اذا عندك سؤال في الاكسس ، تلقانا هبة ريح ان شاء الله 🙂 جعفر اشكرك على الرد يا ولد بلادي وبارك الله فيك
أ / محمد صالح قام بنشر أغسطس 25, 2020 قام بنشر أغسطس 25, 2020 جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.