معادلة حساب أجور الشحن - حاولت فيها بعدة طرق ولازالت تحتاج لمسات خبير

[Masrawi_25012011]

إخواني أعضاء هذا الصرح الجميل

أرجو التكرم بمساعدتي في تصحيح هذه المعادلة ضمن المعادلتين المظللين باللون الأخضر بالمرفق والتي تعطي نتائج صحيحة في معظم الحالات ونتائج خاطئة في حالات أخرى تم تظليلها باللون الأحمر عند مطابقتها مع النتائج الصحيحة المحسوبة بشكل يدوي ، وفكرة المعادلة هي محاولة لحساب أجور الشحن المستحقة لشركة شحن تحسب الأجرة على أساس الوزن بالطريقة التالية :

أول 500 جرام من وزن الشحنة تحسب بأجر 50 ريال وكل 500 جرام بعدها أو كسر ال 500 جرام تحسب ب 13 ريال ثم يتم ضرب المجموع × 1.1 لإضافة 10% رسوم خدمة على كامل اجرة الشحن للشحنة وقد حاولت بطريقتين ومع الأسف تعطي نتائج خاطئة في حالات معينة لذا أرجو من الأعضاء المتميزين في المعادلات وهم كثيرين والحمد لله التكرم بحل المشكلة مع شكري وتقديري للجميع .

FREIGHT CHARGES - 2011.rar

تم تعديل يناير 18, 2012 بواسطه Masrawi_25012011

[عبدالله المجرب]

السلام عليكم

اخي الفاضل

ارقام الوزن في خلايا العمود G هل هي بالجرام ام ماذ

[Masrawi_25012011]

الأخ العزيز أستاذ عبدالله

الأوزان في العمود G وهي الأوزان الصحيحة وهي بالكيلو جرام وأشكرك جداً على التجاوب وإن شاء الله بالتوفيق في حل المشكلة .

[عبدالله المجرب]

اخي الفاضل

في الخلية G7 مثلا مكتوب 0.8 وهذا يعني 800 جرام

اي ان المبلغ يجب ان يكون

25 ريال على 500 ريال و 3.9 ريال على 300 جرام الاكثر من 500

والمجموع 28.9 ريال ولكن في ملفك 69.3 ريال

فكيف حسبت

[احمدزمان]

متابع

[احمدزمان]

بعداذن اخي عبدالله

اخي ماسراوي

حاولت وغير الدالة حسب الشرح طلعت النتائج لدالتك مطابقة

FREIGHT CHARGES - 2011.rar

[عبدالله المجرب]

السلام عليكم

هذه دالة معرفة ان شاء الله تفي بالغرض

Function Abu_A(Cl As Variant)

Select Case Cl

    Case 0 To 0.5:

    Abu_A = 50 * 1.1


	 Case Is > 0.5:

	 ww = (Cl - 0.5) / 0.5 - Int((Cl - 0.5) / 0.5)

    If ww > 0 Then ww = 1

    Abu_A = (50 + (13 * Int((Cl - 0.5) / 0.5)) + (ww * 13)) * 1.1


	 Case Is = "":

	 Abu_A = ""

End Select

End Function

انسخ هذا الكود وضعه في موديول جديد ثم في ورقة العمل قم بادراج دالة جديدة في الخانة التي تريد من مربع الادراج اختر دالة معرفة ستجد هذا الاسم Abu_A او انسخ هذه المعادلة

=Abu_A(G3)

ستقوم هذه الدالة بعمل الحساب حسب ما قمت انت بايضاحه في المشاركة السابقة

[Masrawi_25012011]

الأخ العزيز الأستاذ عبدالله

ما قصدته بالمطلوب هو إحتساب أجور الشحن لأول 500 جرام من وزن الشحنة ب 50 ريال وبعد أول 500 جرام كل 500 جرام إضافية أو كسر ال 500 جرام يحتسب ب 13 ريال وبعد تجميع هذه المبالغ يتم ضربها في 1.1 لإضافة 10% رسوم خدمة فبالتالي لو عندنا شحنة وزنها 800 جرام فإن حسابها سيكون كالتالي (50+13)×1.1 = 69.30

الأخ العزيز الأستاذ أحمد زمان

جزاك الله خير على المعادلة وهي تعطي نفس النتيجة التي وصلت إليها بواحدة من المعادلتين اللي استخدمتهم وبمراجعة ارقام الأوزان اكتشفت إن المبالغ المحسوبة بشكل يدوي يبدو إن فيها خطأ والمعادلات بما فيهم معادلتك سليمة فلك كل الشكر على اهتمامك ومساعدتك .

[Masrawi_25012011]

الأخ العزيز الأستاذ عبدالله

أعتذر أنني رديت قبل أن أرى ردك الأخير الذي أشكرك جداً عليه فقد طبقت الفكرة وأعطت نتائج مطابقة لمعادلتي ومعادلة الأستاذ احمد زمان فجزاكم الله كل خير على مجهودكم المتميز .

[احمدزمان]

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

اخي عبدالله

ابداع جميل من استاذ فنان

جزاك الله كل خير

اخي الكريم اشكرك على اطرائك

جزاك الله كل خير

[عبدالله المجرب]

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

اخي عبدالله

ابداع جميل من استاذ فنان

جزاك الله كل خير

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

استاذي الفاضل ابو ابراهيم

ايه الكلام دا فما عندي هو 1/ بعض اس 100 ما عندكم

حفظك الله على هذا الدعم المتواصل

ابواحمد