السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
في هذا البرنامج المرفق حقل الكمية طلبي هو تفقيط الكمية
مثلا : الكمية هي 5.0460 يكون التفقيط كالاتي خمسة اطنان واربعمائة وستون غرام
مثال ثاني : الكمية هي 8.1254 يكون التفقيط كالاتي ثمانية اطنان والف ومئتان واربعة وخمسون غرام وهكذا
مع فائق الشكر والاحترام
استاذي الفاضل Kamali_82 اولا شكرا على ردك السريع ربي يحفظك ويرعاك
ثانيا اريد البرنامج ان يكتب ماوراء الفارزة حسب المثال التالي
لو فرضا الكمية هي 4.1569 اريد البرنامج ان يكتب اربعة اطنان والف وخمسمائة وتسعة وستون غرام وهكذا لكل الكميات
مع شكري وتقديري لك
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
اذا امكن المساعدة في تفقيط ما وراء الفارزة حسب التالي :
لو فرضنا ان الكمية هي : 20. 1545 يكون التفقيط هكذا ( فقط عشرون طن ومائة واربعة وخمسون كيلو وخمسة غرام لاغيرها )
واكون ممنونا لكم جميعا وجزاكم الله خير الجزاء
تفضل يا أخي الكريم
ولاحظ أن:
العدد يسار الفاصلة يمثل الجزء الصحيح من العدد (طن) مهما كان طول مراتبه فقط يسار الفاصلة
أول ثلاث مراتب يمين الفاصلة (0.000 تمثل الكليو غرام)=(آحاد عشرات مئات)
المرتبة الرابعة بعد الفاصلة تمثل (مئات الغرامات) وليس آحاد الغرامات كما تفضلت بذكره
وفقك الله
تحياتي/ أبومحمد
اقتباسابو حاتم العنزيالكمية هي 8.1254 يكون التفقيط كالاتي ثمانية اطنان والف ومئتان واربعة وخمسون غرام وهكذا
اقتباسابو حاتم العنزيالكمية هي : 20.1545 يكون التفقيط هكذا ( فقط عشرون طن ومائة واربعة وخمسون كيلو وخمسة غرام لاغيرها )
يا باشا حدد المطلوب عاوز ما بعد الفاصلة
بآلاف الجرامات
أم
بمئات الكيلوجرامات ويتبعها الجرامات
؟؟
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
اولا انا عاجز عن الشكر اخوتي الافاضل
ثانيا : ما قام به استاذي الفاضل pms جزاه الله خير الجزاء يفي بالغرض
ولكن اذا امكن التعديل كما في مطلبي الاول حسب المثال التالي : لوفرضا ان الكمية هي 45.1255 يكون التفقيط كالاتي
فقط خمسة واربعون طن والف ومئتان وخمسة وخمسون غرام لاغرها
يكون الحل هو الافضل لان هذا مايريدون مني في عملي ولكم كل الحب والتقدير والله لايحرمنا من شخصكم الكريم يارب
استاذي الفاضل ابو محمد الله لايحرمنا من شخصك الطيب يارب
ممكن شرح الطريقة التي عملت بها كود التفقيط واقصد الحرف لان حاولت اطبق الذي عملته لم افلح
جزاك الله خير الجزاء
ابو حاتم العنزي كتب:استاذي الفاضل Kamali_82 اولا شكرا على ردك السريع ربي يحفظك ويرعاك
ثانيا اريد البرنامج ان يكتب ماوراء الفارزة حسب المثال التالي
لو فرضا الكمية هي 4.1569 اريد البرنامج ان يكتب اربعة اطنان والف وخمسمائة وتسعة وستون غرام وهكذا لكل الكميات
مع شكري وتقديري لك
عذراً أخي الكريم لغيابي الايام الماضية و ها قد قام الأخ أبو محمد بحل الموضوع لك
ابو حاتم العنزي كتب:استاذي الفاضل ابو محمد الله لايحرمنا من شخصك الطيب يارب
ممكن شرح الطريقة التي عملت بها كود التفقيط واقصد الحرف لان حاولت اطبق الذي عملته لم افلح
جزاك الله خير الجزاء
إسمح لي و بما اني متواجد الآن أن أُجيبك نيابة عن الاخ الكريم أبو محمد غير المتواجد حاليا
يمثل الكسر الموجود في القيمة الرقم الموجود عندك
استاذي الفاضل Kamali ربي يحفظك ويحميك من كل شر
وبما انك ساعدتني انت والاساتذة الافاضل ارجو ان تتحملني فلدي سؤال
وهو لماذا عندما اريد التطبيق لما عمله الاستاذ ابو محمد بحيث انقر على التقرير تخرج لي رسالة موجود فيها الحرف B
يعني انا عملت تقرير بحيث انقر على التقرير اولا تخرج رسالة ادخل رقم البطاقة والمفروض عند ادخال رقم البطاقة يعمل التقرير ولكن الذي يحدث هو عند ادخال رقم البطاقة تخرج رسالة ثانية موجود فيها حرف ال B
وبعدين يخؤج التقرير فارغ
ارجو الايضاح اكثر وربي يوفقك يارب
أخي الكريم أبو حاتم بداية أنا مثلك دخلت هنا لأتعلم و أجبتك بما تعلمته هنا و أدعو الله لك بخيرٍ مما دعوت لي
و ما دخلت منذ البداية لموضوعك و أجبت عليه بما تيسر لي من معلومات إلا لأني اعرف لهفة أحدنا لمن يرد على سؤاله
ارجو منك ارفاق ما قمت بعمله لبيان المشكلة و التعديل عليه و حلها إن شاء الله
و السلام عليكم
ادخل رقم واحد في التقرير
السلام عليكم أخي الكريم
تم التعديل هنا أرجو أن يكون كما أردت
و على عادة الاخوة لا تنسانا من التقييم :)
و السلام عليكم
استاذي الفاضل جزاك الله خير الجزاء
الله لايحرمنا من شخصك الكريم
اريد شرح الطريقة بالتفصيل وكيف تخلصت من رسالة ال B
شاكرا تعاونك معي وربي يحميك من كل شر يارب
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
عملت كل شيء من خلال التطبق المباشر كما شروا لي الاساتذة الافاضل لكن دون جدوى
وكل محاولاتي باءت بالفشل وها انا ارفع لكم البرنامج كاملا كما طبقت فيه
بحيث عندما اذهب الى تقرير مستند استلام شعير وادخل رقم البطاقة التي هي رقم واحد يخرج التقرير وفيه الكمية ولكن دون التفقيط
طلبي هو اين الخطأ اذا امكن شرح الخطا ولكم كل الحب والوفاء والتقدير
أخي الحبيب
صباح الخير
هل ترغب بأضافة التفقيط للوزن الطني في هذا الموقع
في التقرير/ مستند استلام شعير
إن كان صواب .. أكد ذلك
وإن كان غير ذلك
فالرجاء التوضيح
حتى تتم المساعدة
وفقك الله
أبومحمد
اخي الفاضل واستاذي الغالي ابو محمد
اريد التفقيط للوزن الصافي الذي هو 29.2340
ولك كل الحب والوفاء مع شرح الطريقة بارك الله فيك حتى اتعلمها جزاك الله خير الجزاء
أخي الحبيب
السلام عليكم ورحمة الله وبركاته
مع كل الحب والوفاء والتقدير
أرفع لك مبدئياً صورة للحل
فإن أصابت هدفك (طريقة التفقيط/ صحيحة كما هو مطلوب) سوف أشرح لك مفصلا (خطوات العمل)
وإن كان غير ذلك .. أعلمني بارك الله فيك حتى يتم التعديل
تقبل تحياتي
أبومحمد
استاذي الفاضل ابو محمد الغالي بارك الله فيك وجزاك الله خير الجزاء
نعم هذا هو المطلوب
واريد الشرح بارك الله فيك الله لايحرمنا من شخصك الكريم يارب
السلام عليكم ورحمة الله وبركاته
الأخ العزيز/ أبو حاتم العنزي أسعدك الله
شرح خطوات العمل (العدد المطلوب تفقيطه: 29.2340)
لاحظ أني أنشأت داخل التقرير مربع نص مخفي تحت مسمى Fractional لحساب الجزء الكسري كما في العملية الحسابية أعلاه .. كما تم تغيير بعض المسميات للإنجليزي ... وهذا ما حدث فعلا في المرة السابقة داخل النموذج بأنشاء مربع نص مخفي .. هدفي تيسير التعامل مع الجزء الكسري دون تغيير على الجزء الصحيح من العدد
أستفدت من دالة التفقيط المرفقة بمثالك وحررت عليها ما يلي على 3 أجزاء
1- جزء العدد الصحيح ويمثل الطن وذلك من خلال الدالة Fix أي أستقطاع الجزء الصحيح من العدد وأهمال الكسر لنحصل على عدد صحيح دون تقريب له
=NoToTxt(Fix([Net_weight]);"طن";"")
ليصبح الناتج = 29 طناً
2- الجزء الكسري: قمت بتنسيقه على النمط 0.000000 ست مراتب بعد الفاصلة يمثل (آحاد وعشرات ومئات كل من الكيلوغرام و الغرام)
=NoToTxt(Mid(Format([Fractional];"0.000000");3;3);"كيلو غرام";"")
بحيث أول 3 منازل يمين الفاصلة تمثل وحدة الكيلو غرام وحددت الأمر بالدالة Mid (أبدء بثالث منزلة يمين الفاصلة من التنسيق وبطول 3 منازل)
وحيث أن التنسيق مكون من 8 قيم (صفر فاصلة 0. تأخذ أول قيمتين وبعدها القيمة الثالثة وهي بالتأكيد أول قيمة يمين الفاصلة)
فيكون بدء العد في مثالنا السابق هو 234 تمثل مئات وعشرات وآحاد الكيلو غرام
ليصبح الناتج 0.234 كيلوغرام
3- متمم الجزء الكسري أو خانة الغرامات 000 مئات وعشرات وآحاد
=NoToTxt(Mid(Format([Fractional];"0.000000");6;3);"غرام";"")
.ليصبح الناتج 0.000000 صفر غرام
وتجميع الأجزاء الثلاثة بالمحصلة التالية (دالة تفقيط العدد)
="فقط" & " " & NoToTxt(Fix([Net_weight]);"طن";"") & " و " & NoToTxt(Mid(Format([Fractional];"0.000000");3;3);"كيلو غرام";"") & " و " & NoToTxt(Mid(Format([Fractional];"0.000000");6;3);"غرام";"")
.
لاحظ أنه يمكنك التحكم بالتفقيط من خلال تغيير تنسيقات الدالة Mid
=Mid([Txt];6;3)
حيث 6 تمثل نقطة البدء من جهة اليسار و 3 تمثل طول السلسلة
فكر معي.. ماذا لو غيرت العدد 3 إلى 2 ماذا سيحدث؟
أو غيرت المنزلة 6 إلى أي منزلة أخرى ترغبها ماذا سيحدث؟
آمل أن تجرب ذلك.
ملحوظة مهمة في حساب التحويل لوحدات الكمية والوزن (وجدتك أغفلتها):
هناك فرق بين الطن العادي والطن المتري
إذ أن الطن العادي من وحدات النظام الإنجليزي والطن المتري مستحدث في النظام المتري
1 طن = 2000 رطل.
1رطل = 16 أونصة.
الأونصة: هي إحدى وحدات قياس الكتلة، وهي مستخدمة في عدد من الأنظمة المختلفة
لوحدات القياس
أما:
1 طن متري = 1000 كيلوغرام.
1 كيلوغرام = 1000 غرام
فهل المقصد من تهجين الطن والكليوغرام والغرام هو من باب الخلط أم المستهدف هو الطن المتري في النظام الجديد
هذا ما لزم والله أعلم
تحياتي/ أبومحمد
الله يحفظك استاذي الغالي ابو محمد شرح ولا اروع من استاذ ولا اروع بارك الله فيك وجزاك الله عز وجل خير الجزاء
سائلا الله العلي القدير ان يمن عليك بالصحة والعافية وان يبعد عنك شر الحاسدين يارب وطبعا +1
تم تعديل هذه المشاركة بواسطة ابو حاتم العنزي في 13 أبريل 2014 في 08:30
حفظك الباري ورعاك
وكلل مسعاك
وتمم جهدك لكل خير
تحياتي/ أبومحمد