لمستخدمي الأجور.. دوال حصرية و مفيدة جدا للمساعدة في الحساب الآلي
صفحة 1 من اصل 1 • شاطر •
لمستخدمي الأجور.. دوال حصرية و مفيدة جدا للمساعدة في الحساب الآلي
السلام عليكم
بعض الدوال المفيدة لللإستخدام مع Excel أو Access و هي جهد شخصي و إن شاء الله توفي المطلوب
ستجدون في الأخير ملف ماكرو جاهز للإدراج
في حالة الإدراج اليدوي يتم إدراجها عن طريق Module جديد
الدوال هي لحساب مايلي:
الأجر القاعدي - الخبرة المهنية - المنحة الجزافية - منحة المنطقة حسب جدول 1989
الأجر القاعدي و صيغتها
الدالة
حساب الخبرة المهنية وصيغتها
الدالة
بعض الدوال المفيدة لللإستخدام مع 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
bousaid- موظف درجة 2
-
الاقامة : أدرار
المشاركات : 140
نقاط : 189
تاريخ التسجيل : 04/03/2014
العمر : 39
العمل : تقني سامي
تابع
دالة المنحة الجزافية و صيغتها
دالة منحة المنطقة و صيغتها
ملف الماكرو جاهز للتحميل
- الكود:
=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
ملف الماكرو جاهز للتحميل
bousaid- موظف درجة 2
-
الاقامة : أدرار
المشاركات : 140
نقاط : 189
تاريخ التسجيل : 04/03/2014
العمر : 39
العمل : تقني سامي
رد: لمستخدمي الأجور.. دوال حصرية و مفيدة جدا للمساعدة في الحساب الآلي
وضعتها في ملف الاكسل........لكن كيفية العمل علي ورقة الاكسل .....لم اعرف كيف؟؟؟؟؟؟؟؟؟؟؟؟
ميلاف2- موظف مرسم
-
الاقامة : ميلة
المشاركات : 42
نقاط : 44
تاريخ التسجيل : 10/08/2013
العمل : موظف في اطار الادماج المهني
تطبيق شهادة الأجر التقاعد
السلام عليكم أخي، هل لديك تطبيق لاسنخراج شهادة الأجر للتقاعد. اخذا بعين الاعتبار التغير في القوانين. قبالنسبة للموظين المتعاقذين يجب استخراج كل الفترة التي قضوها في العمل وهذا مشكل عند غياب الأرشيف.وشكرا
diamon35- موظف مرسم
-
الاقامة : الجزائر
المشاركات : 44
نقاط : 55
تاريخ التسجيل : 01/01/2011
العمل : متصرف
رد: لمستخدمي الأجور.. دوال حصرية و مفيدة جدا للمساعدة في الحساب الآلي
من فضلك اشرحلي كيفي أحسب راتبي لاني لم افهم كيف مع العلم اني في الصنف 13 (متصرف محلل)
kadis- موظف درجة 1
-
الاقامة : الشلف
المشاركات : 102
نقاط : 160
تاريخ التسجيل : 27/10/2016
العمر : 39
العمل : متصرف
رد: لمستخدمي الأجور.. دوال حصرية و مفيدة جدا للمساعدة في الحساب الآلي
من فضلك اشرحلي كيفي أحسب راتبي لاني لم افهم كيف مع العلم اني في الصنف 13 (متصرف محلل)
kadis- موظف درجة 1
-
الاقامة : الشلف
المشاركات : 102
نقاط : 160
تاريخ التسجيل : 27/10/2016
العمر : 39
العمل : متصرف
رد: لمستخدمي الأجور.. دوال حصرية و مفيدة جدا للمساعدة في الحساب الآلي
من فضلك اشرحلي كيفي أحسب راتبي لاني لم افهم كيف مع العلم اني في الصنف 13 (متصرف محلل)
kadis- موظف درجة 1
-
الاقامة : الشلف
المشاركات : 102
نقاط : 160
تاريخ التسجيل : 27/10/2016
العمر : 39
العمل : متصرف
السلام عليكم ممكن وضع برنامج للميزانية البلدية
السلام عليكم ممكن وضع برنامج الميزانية الأولية والإضافية والحساب الإداري للبلدية
موظف بسيط موظف- موظف مرسم
-
الاقامة : ALGERIE
المشاركات : 6
نقاط : 6
تاريخ التسجيل : 24/08/2016
العمل : موظفة
رد: لمستخدمي الأجور.. دوال حصرية و مفيدة جدا للمساعدة في الحساب الآلي
شكراااااااااااااااااااااا
زكريا2008- موظف درجة 2
-
الاقامة : الجزائر
المشاركات : 175
نقاط : 180
تاريخ التسجيل : 23/11/2010
العمل : موظف
إنشاء حساب أو تسجيل الدخول لتستطيع الرد
تحتاج إلى أن يكون عضوا لتستطيع الرد.
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى