اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

معادلة لإخراج الضريبة


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

ملف.xlsx

رابط هذا التعليق
شارك

بعد اذن الاح بن علية

يمكن حساب ذلك بواسطة دالة تعريف (UDF)

الدالة المعرفة

Option Explicit
Function Salim_Dariba(Myfact As Double, _
n1 As Double, n2 As Double, _
n3 As Double, n4 As Double) As Double
''''''''''''''''''''''''''''''''''''''''''
Dim How_Many
Select Case Myfact
       Case Is <= 11000
          How_Many = Myfact * n1
       Case Is <= 18500
          How_Many = (11000 * n1) + (Myfact - 11000) * n2
       Case Is <= 26000
         How_Many = (11000 * n1) + (7500 * n2) + (Myfact - 18500) * n3
       Case Is > 26000
         How_Many = _
       (11000 * n1) + (7500 * n2) + (7500 * n3) + (Myfact - 26000) * n4
 End Select

 Salim_Dariba = How_Many
''''''''''''''''''''''''''''''''''''''''
 End Function


الملف مرفق مع مثال

Dariba.xlsm

  • Like 1
رابط هذا التعليق
شارك

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

مثال آخر فى هذا الملف

Dariba (1).xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

تم معالجة الأمر

Option Explicit
Function Salim_Tax(Myfact As Double, _
n1 As Double, n2 As Double, _
n3 As Double, n4 As Double) As Double
''''''''''''''''''''''''''''''''''''''''''
Dim A#, B#, C#, D#, E#, S#
 Select Case True
 Case Myfact < 11000
  A = Myfact * n1
  S = A
 Case Myfact < 18500
      B = 11000 * n2
      C = (Myfact - 11000) * n3
      S = (B + C) * 0.55

  Case Else 'Exact
    B = 11000 * n2
    C = 7500 * n3
    D = (Myfact - 18500) * n4
    S = (B + C + D) * 0.925
  End Select
  Salim_Tax = Round(S, 2)
  

 End Function

 

My_tax.xlsm

  • Like 1
رابط هذا التعليق
شارك

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

My_tax.xlsm

معزة استاذى فعلا لم ارها كدة تمام جزاكم الله خيرا

رابط هذا التعليق
شارك

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

اسف استاذ سليم فيه خطأ منى لم اوضحه لحضرتك وكنت اظن ان حضرتك مدركه وهى الشريحه الاولى وهذا التوضيح لى وللأخوة فى المنتدى ولكى تكون الإجابه واحدة ولكن بطرق مختلفة بالمعادلات او بالكود تكون الاجابه واحدة وهى اذا كان الدخل السنوى أقل من 11000 نضرب فى 1.5% أما اذا زاد عن 11000 يدخل على الشريحه الثانيه مباشرة وكما تفضلت حضرتك لكى تكون النتيجه واحدة ولكى لايشتت االاخوة فى المنتدى ونحن نتعلم فى مدرستكم وجزاكم الله خيرا

  • Like 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information