منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(08-09-20, 03:08 AM)عبد الهادي بهاب كتب : [ -> ]اظن ان هناك خطا في مجال  اكثر من 30000 و اقل من 35000

(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