08-09-20, 02:19 AM
(آخر تعديل لهذه المشاركة : 08-09-20, 02:24 AM {2} بواسطة 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