+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب مساعدة في كتابة كود عكسي (/showthread.php?tid=36330)
طلب مساعدة في كتابة كود عكسي - paveldida - 08-09-20
السلام عليكم
قمت ببرمجة برناج لحساب الضريبة على الدخل بحيث ادخل قيمة الاجر و يحسب لك الاقتطاع الضريبي مباشرة و يعطيك الاجر الصافي
اريك كتابة كود عكسي بحيث ادخل الاجر الصافي"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 - bRE: طلب مساعدة في كتابة كود عكسي - Anas Mahmoud - 08-09-20
تفضل اخي الكريم
كود :
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 + cRE: طلب مساعدة في كتابة كود عكسي - عبد الهادي بهاب - 08-09-20
اظن ان هناك خطا في مجال اكثر من 30000 و اقل من 35000
RE: طلب مساعدة في كتابة كود عكسي - paveldida - 08-09-20
(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
بارك الله فيك أخي ، سأجرب