لمستخدمي الأجور.. دوال حصرية و مفيدة جدا للمساعدة في الحساب الآلي

' Saler Fonction By Boussaid Mustafa
' APC SALI 2015
Function Saler(Categori)
'Categori = Format(Categori, "00")
Dim point As Variant
point = 45
Select Case Categori
    Case 1: Saler = point * 200
    Case 2: Saler = point * 219
    Case 3: Saler = point * 240
    Case 4: Saler = point * 263
    Case 5: Saler = point * 288
    Case 6: Saler = point * 315
    Case 7: Saler = point * 348
    Case 8: Saler = point * 379
    Case 9: Saler = point * 418
    Case 10: Saler = point * 453
    Case 11: Saler = point * 498
    Case 12: Saler = point * 537
    Case 13: Saler = point * 578
    Case 14: Saler = point * 621
    Case 15: Saler = point * 666
    Case 16: Saler = point * 713
    Case 17: Saler = point * 762
    Case Else
            Saler = 0
End Select
End Function

' IEP Fonction By Boussaid Mustafa
' APC SALI 2015
Function IEP(Categori, daraja)
Dim point As Variant
point = 45
If Categori = 1 Then
    Select Case daraja
        Case 1: IEP = point * 10
        Case 2: IEP = point * 20
        Case 3: IEP = point * 30
        Case 4: IEP = point * 40
        Case 5: IEP = point * 50
        Case 6: IEP = point * 60
        Case 7: IEP = point * 70
        Case 8: IEP = point * 80
        Case 9: IEP = point * 90
        Case 10: IEP = point * 100
        Case 11: IEP = point * 110
        Case 12: IEP = point * 120
    End Select
End If

If Categori = 2 Then
    Select Case daraja
        Case 1: IEP = point * 11
        Case 2: IEP = point * 22
        Case 3: IEP = point * 33
        Case 4: IEP = point * 44
        Case 5: IEP = point * 55
        Case 6: IEP = point * 66
        Case 7: IEP = point * 77
        Case 8: IEP = point * 88
        Case 9: IEP = point * 99
        Case 10: IEP = point * 110
        Case 11: IEP = point * 120
        Case 12: IEP = point * 131
    End Select
End If

If Categori = 3 Then
    Select Case daraja
        Case 1: IEP = point * 12
        Case 2: IEP = point * 24
        Case 3: IEP = point * 36
        Case 4: IEP = point * 48
        Case 5: IEP = point * 60
        Case 6: IEP = point * 72
        Case 7: IEP = point * 84
        Case 8: IEP = point * 96
        Case 9: IEP = point * 108
        Case 10: IEP = point * 120
        Case 11: IEP = point * 132
        Case 12: IEP = point * 144
    End Select
End If

If Categori = 4 Then
    Select Case daraja
        Case 1: IEP = point * 13
        Case 2: IEP = point * 26
        Case 3: IEP = point * 39
        Case 4: IEP = point * 53
        Case 5: IEP = point * 66
        Case 6: IEP = point * 79
        Case 7: IEP = point * 92
        Case 8: IEP = point * 105
        Case 9: IEP = point * 118
        Case 10: IEP = point * 132
        Case 11: IEP = point * 145
        Case 12: IEP = point * 158
    End Select
End If

If Categori = 5 Then
    Select Case daraja
        Case 1: IEP = point * 14
        Case 2: IEP = point * 29
        Case 3: IEP = point * 43
        Case 4: IEP = point * 58
        Case 5: IEP = point * 72
        Case 6: IEP = point * 86
        Case 7: IEP = point * 101
        Case 8: IEP = point * 115
        Case 9: IEP = point * 130
        Case 10: IEP = point * 144
        Case 11: IEP = point * 158
        Case 12: IEP = point * 173
    End Select
End If

If Categori = 6 Then
    Select Case daraja
        Case 1: IEP = point * 16
        Case 2: IEP = point * 32
        Case 3: IEP = point * 47
        Case 4: IEP = point * 63
        Case 5: IEP = point * 79
        Case 6: IEP = point * 95
        Case 7: IEP = point * 110
        Case 8: IEP = point * 126
        Case 9: IEP = point * 142
        Case 10: IEP = point * 158
        Case 11: IEP = point * 173
        Case 12: IEP = point * 189
    End Select
End If

If Categori = 7 Then
    Select Case daraja
        Case 1: IEP = point * 17
        Case 2: IEP = point * 35
        Case 3: IEP = point * 52
        Case 4: IEP = point * 70
        Case 5: IEP = point * 87
        Case 6: IEP = point * 104
        Case 7: IEP = point * 122
        Case 8: IEP = point * 139
        Case 9: IEP = point * 157
        Case 10: IEP = point * 174
        Case 11: IEP = point * 191
        Case 12: IEP = point * 209
    End Select
End If

If Categori = 8 Then
    Select Case daraja
        Case 1: IEP = point * 19
        Case 2: IEP = point * 38
        Case 3: IEP = point * 57
        Case 4: IEP = point * 76
        Case 5: IEP = point * 95
        Case 6: IEP = point * 114
        Case 7: IEP = point * 133
        Case 8: IEP = point * 152
        Case 9: IEP = point * 171
        Case 10: IEP = point * 190
        Case 11: IEP = point * 208
        Case 12: IEP = point * 225
    End Select
End If

If Categori = 9 Then
    Select Case daraja
        Case 1: IEP = point * 21
        Case 2: IEP = point * 42
        Case 3: IEP = point * 63
        Case 4: IEP = point * 84
        Case 5: IEP = point * 105
        Case 6: IEP = point * 125
        Case 7: IEP = point * 146
        Case 8: IEP = point * 167
        Case 9: IEP = point * 188
        Case 10: IEP = point * 209
        Case 11: IEP = point * 230
        Case 12: IEP = point * 251
    End Select
End If

If Categori = 10 Then
    Select Case daraja
        Case 1: IEP = point * 23
        Case 2: IEP = point * 45
        Case 3: IEP = point * 68
        Case 4: IEP = point * 91
        Case 5: IEP = point * 113
        Case 6: IEP = point * 136
        Case 7: IEP = point * 159
        Case 8: IEP = point * 181
        Case 9: IEP = point * 204
        Case 10: IEP = point * 227
        Case 11: IEP = point * 249
        Case 12: IEP = point * 272
        Case Else
        IEP = 0
    End Select
End If

If Categori = 11 Then
    Select Case daraja
        Case 1: IEP = point * 25
        Case 2: IEP = point * 50
        Case 3: IEP = point * 75
        Case 4: IEP = point * 100
        Case 5: IEP = point * 125
        Case 6: IEP = point * 149
        Case 7: IEP = point * 174
        Case 8: IEP = point * 199
        Case 9: IEP = point * 224
        Case 10: IEP = point * 249
        Case 11: IEP = point * 274
        Case 12: IEP = point * 299
    End Select
End If

If Categori = 12 Then
    Select Case daraja
        Case 1: IEP = point * 27
        Case 2: IEP = point * 54
        Case 3: IEP = point * 81
        Case 4: IEP = point * 107
        Case 5: IEP = point * 134
        Case 6: IEP = point * 161
        Case 7: IEP = point * 188
        Case 8: IEP = point * 215
        Case 9: IEP = point * 242
        Case 10: IEP = point * 269
        Case 11: IEP = point * 295
        Case 12: IEP = point * 322
    End Select
End If

If Categori = 13 Then
    Select Case daraja
        Case 1: IEP = point * 29
        Case 2: IEP = point * 58
        Case 3: IEP = point * 87
        Case 4: IEP = point * 116
        Case 5: IEP = point * 145
        Case 6: IEP = point * 173
        Case 7: IEP = point * 202
        Case 8: IEP = point * 231
        Case 9: IEP = point * 260
        Case 10: IEP = point * 289
        Case 11: IEP = point * 318
        Case 12: IEP = point * 347
    End Select
End If

If Categori = 14 Then
    Select Case daraja
        Case 1: IEP = point * 31
        Case 2: IEP = point * 62
        Case 3: IEP = point * 93
        Case 4: IEP = point * 124
        Case 5: IEP = point * 155
        Case 6: IEP = point * 186
        Case 7: IEP = point * 217
        Case 8: IEP = point * 248
        Case 9: IEP = point * 279
        Case 10: IEP = point * 311
        Case 11: IEP = point * 342
        Case 12: IEP = point * 273
    End Select
End If

If Categori = 15 Then
    Select Case daraja
        Case 1: IEP = point * 33
        Case 2: IEP = point * 67
        Case 3: IEP = point * 100
        Case 4: IEP = point * 133
        Case 5: IEP = point * 167
        Case 6: IEP = point * 200
        Case 7: IEP = point * 233
        Case 8: IEP = point * 266
        Case 9: IEP = point * 300
        Case 10: IEP = point * 333
        Case 11: IEP = point * 366
        Case 12: IEP = point * 400
    End Select
End If

If Categori = 16 Then
    Select Case daraja
        Case 1: IEP = point * 36
        Case 2: IEP = point * 71
        Case 3: IEP = point * 107
        Case 4: IEP = point * 143
        Case 5: IEP = point * 178
        Case 6: IEP = point * 214
        Case 7: IEP = point * 250
        Case 8: IEP = point * 285
        Case 9: IEP = point * 321
        Case 10: IEP = point * 357
        Case 11: IEP = point * 392
        Case 12: IEP = point * 428
    End Select
End If

If Categori = 17 Then
    Select Case daraja
        Case 1: IEP = point * 38
        Case 2: IEP = point * 76
        Case 3: IEP = point * 114
        Case 4: IEP = point * 152
        Case 5: IEP = point * 191
        Case 6: IEP = point * 229
        Case 7: IEP = point * 267
        Case 8: IEP = point * 305
        Case 9: IEP = point * 343
        Case 10: IEP = point * 381
        Case 11: IEP = point * 419
        Case 12: IEP = point * 457
    End Select
End If

End Function

' IFC Fonction By Boussaid Mustafa
' APC SALI 2015
Function IFC(Categorie)
'Categorie = Format(Categorie, "00")
Select Case Categorie
    Case 1: IFC = 7700
    Case 2: IFC = 7400
    Case 3: IFC = 6900
    Case 4: IFC = 6400
    Case 5: IFC = 5700
    Case 6: IFC = 5000
    Case 7, 8: IFC = 3800
    Case 9, 10: IFC = 3100
    Case 11 To 17: IFC = 1500
Case Else
    IFC = 0
End Select
End Function

' Fonction ICR By Boussaid Mustafa
' APC SALI 2015
Function icr(cateegori As String)
Dim point As Variant
point = 35 / 100
Select Case cateegori
    Case "01/1": icr = 1500 * point
    Case "01/2": icr = 1520 * point
    Case "01/3": icr = 1540 * point
    Case "02/1": icr = 1560 * point
    Case "02/2": icr = 1580 * point
    Case "02/3": icr = 1600 * point
    Case "03/1": icr = 1620 * point
    Case "03/2": icr = 1640 * point
    Case "03/3": icr = 1660 * point
    Case "04/1": icr = 1680 * point
    Case "04/2": icr = 1700 * point
    Case "04/3": icr = 1745 * point
    Case "05/1": icr = 1790 * point
    Case "05/2": icr = 1850 * point
    Case "05/3": icr = 1910 * point
    Case "06/1": icr = 1970 * point
    Case "06/2": icr = 2040 * point
    Case "06/3": icr = 2100 * point
    Case "07/1": icr = 2170 * point
    Case "07/2": icr = 2240 * point
    Case "07/3": icr = 2300 * point
    Case "08/1": icr = 2380 * point
    Case "08/2": icr = 2460 * point
    Case "08/3": icr = 2530 * point
    Case "09/1": icr = 2610 * point
    Case "09/2": icr = 2700 * point
    Case "09/3": icr = 2780 * point
    Case "10/1": icr = 2850 * point
    Case "10/2": icr = 2920 * point
    Case "10/3": icr = 2990 * point
    Case "10/4": icr = 3060 * point
    Case "11/1": icr = 3070 * point
    Case "11/2": icr = 3130 * point
    Case "11/3": icr = 3190 * point
    Case "11/4": icr = 3250 * point
    Case "12/1": icr = 3320 * point
    Case "12/2": icr = 3380 * point
    Case "12/3": icr = 3450 * point
    Case "12/4": icr = 3530 * point
    Case "13/1": icr = 3540 * point
    Case "13/2": icr = 3640 * point
    Case "13/3": icr = 3730 * point
    Case "13/4": icr = 3830 * point
    Case "14/1": icr = 3920 * point
    Case "14/2": icr = 4000 * point
    Case "14/3": icr = 4080 * point
    Case "14/4": icr = 4160 * point
    Case "14/5": icr = 4240 * point
    Case "15/1": icr = 4340 * point
    Case "15/2": icr = 4430 * point
    Case "15/3": icr = 4520 * point
    Case "15/4": icr = 4620 * point
    Case "15/5": icr = 4720 * point
    Case "16/1": icr = 4820 * point
    Case "16/2": icr = 4920 * point
    Case "16/3": icr = 5020 * point
    Case "16/4": icr = 5120 * point
    Case "16/5": icr = 5220 * point
    Case "17/1": icr = 5340 * point
    Case "17/2": icr = 5450 * point
    Case "17/3": icr = 5560 * point
    Case "17/4": icr = 5690 * point
    Case "17/5": icr = 5810 * point
    Case "18/1": icr = 5930 * point
    Case "18/2": icr = 6060 * point
    Case "18/3": icr = 6190 * point
    Case "18/4": icr = 6320 * point
    Case "18/5": icr = 6450 * point
    Case "19/1": icr = 6580 * point
    Case "19/2": icr = 6720 * point
    Case "19/3": icr = 6860 * point
    Case "19/4": icr = 7000 * point
    Case "19/5": icr = 7140 * point
    Case "20/1": icr = 7300 * point
    Case "20/2": icr = 7460 * point
    Case "20/3": icr = 7620 * point
    Case "20/4": icr = 7780 * point
    Case "20/5": icr = 7940 * point
    Case Else
                icr = 0
End Select
End Function