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

السلام عليكم
بعض الدوال المفيدة لللإستخدام مع Excel أو Access و هي جهد شخصي و إن شاء الله توفي المطلوب
ستجدون في الأخير ملف ماكرو جاهز للإدراج
في حالة الإدراج اليدوي يتم إدراجها عن طريق Module جديد
الدوال هي لحساب مايلي:
الأجر القاعدي - الخبرة المهنية - المنحة الجزافية - منحة المنطقة حسب جدول 1989

الأجر القاعدي و صيغتها

الكود:

=saler(رقم الخلية)

الدالة

الكود:

' 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(خلية الصنف;خلية الدرجة)

مثلا

الكود:

=IEP(P10;P11)

الدالة

الكود:

' 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(خلية الصنف)

الدالة

الكود:

' 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

دالة منحة المنطقة و صيغتها

الكود:

=icr(رقم خلية الصنف القديم)

الدالة

الكود:

' 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

ملف الماكرو جاهز للتحميل

وضعتها في ملف الاكسل........لكن كيفية العمل علي ورقة الاكسل .....لم اعرف كيف؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم أخي، هل لديك تطبيق لاسنخراج شهادة الأجر للتقاعد. اخذا بعين الاعتبار التغير في القوانين. قبالنسبة للموظين المتعاقذين يجب استخراج كل الفترة التي قضوها في العمل وهذا مشكل عند غياب الأرشيف.وشكرا

من فضلك اشرحلي كيفي أحسب راتبي لاني لم افهم كيف مع العلم اني في الصنف 13 (متصرف محلل)

من فضلك اشرحلي كيفي أحسب راتبي لاني لم افهم كيف مع العلم اني في الصنف 13 (متصرف محلل)

من فضلك اشرحلي كيفي أحسب راتبي لاني لم افهم كيف مع العلم اني في الصنف 13 (متصرف محلل)

السلام عليكم ممكن وضع برنامج الميزانية الأولية والإضافية والحساب الإداري للبلدية

شكراااااااااااااااااااااا