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