تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب مساعدة في كتابة كود عكسي
#1
السلام عليكم
قمت ببرمجة برناج لحساب الضريبة على الدخل بحيث ادخل قيمة الاجر و يحسب لك الاقتطاع الضريبي مباشرة و يعطيك الاجر الصافي
اريك كتابة كود عكسي بحيث ادخل الاجر الصافي"C" و يقوم البرنامج بايجاد مبلغ الضريبة و الاجر الخام
a  هو الاجر الخام
b هو الاقتطاع الضريبي
c هو الاجر الصافي
هذا هو الكود المستعمل لحساب الضريبة
كود :
Dim a, b, c As Double
           '===========================================
           If TextBox1.Text = "" Then
               TextBox1.Text = 0
           End If
           a = CDbl(TextBox1.Text)
           '=============IRG Salaire===================
           If a <= 30000 Then
               b = 0
           ElseIf a > 120000 Then
               b = (a - 120000) * 0.35 + 29500
           ElseIf a > 35000 Then
               b = (a - 30000) * 0.3 + 2500
           ElseIf a > 30000 Then
               b = (((a - 30000) * 0.3 + 2500) * 8 / 3) - (20000 / 3)
           End If
            '===========الراتب المدفوع===============
           c = a - b



الرد }}}
تم الشكر بواسطة: حريف برمجة
#2
تفضل اخي الكريم

كود :
       Dim a, b, c As Double
       '===========================================
       If TextBox3.Text = "" Then
           TextBox3.Text = 0
       End If
       c = CDbl(TextBox3.Text)
       '=============IRG Salaire===================
       If c <= (30000 - (20000 / 3)) Then
           b = 0
       ElseIf c > (120000 - 29500) Then
           b = ((c - 120000) * 0.35 + 29500) / 0.65
       ElseIf c > (35000 - 4000) Then
           b = ((c - 30000) * 0.3 + 2500) / 0.7
       ElseIf c > (30000 - (20000 / 3)) Then
           b = ((((c - 30000) * 0.3 + 2500) * 8 / 3) - (20000 / 3)) / 0.6
       End If
       '===========الراتب الاصلي ===============
       a = b + c
الرد }}}
#3
اظن ان هناك خطا في مجال اكثر من 30000 و اقل من 35000
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد }}}
تم الشكر بواسطة: حريف برمجة , WaeLx , Hasaneen
#4
(08-09-20, 03:08 AM)عبد الهادي بهاب كتب : اظن ان هناك خطا في مجال  اكثر من 30000 و اقل من 35000

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

(08-09-20, 02:19 AM)Anas Mahmoud كتب : تفضل اخي الكريم

كود :
       Dim a, b, c As Double
       '===========================================
       If TextBox3.Text = "" Then
           TextBox3.Text = 0
       End If
       c = CDbl(TextBox3.Text)
       '=============IRG Salaire===================
       If c <= (30000 - (20000 / 3)) Then
           b = 0
       ElseIf c > (120000 - 29500) Then
           b = ((c - 120000) * 0.35 + 29500) / 0.65
       ElseIf c > (35000 - 4000) Then
           b = ((c - 30000) * 0.3 + 2500) / 0.7
       ElseIf c > (30000 - (20000 / 3)) Then
           b = ((((c - 30000) * 0.3 + 2500) * 8 / 3) - (20000 / 3)) / 0.6
       End If
       '===========الراتب الاصلي ===============
       a = b + c

بارك الله فيك أخي ، سأجرب
الرد }}}
تم الشكر بواسطة: حريف برمجة , WaeLx , WaeLx , Hasaneen


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 96 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 80 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 324 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 221 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم