[paveldida]

السلام عليكم
قمت ببرمجة برناج لحساب الضريبة على الدخل بحيث ادخل قيمة الاجر و يحسب لك الاقتطاع الضريبي مباشرة و يعطيك الاجر الصافي
اريك كتابة كود عكسي بحيث ادخل الاجر الصافي"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