حساب عدد ساعات دوام الموظف حساب مجموع كلي لساعات دوام بتنسيق الوقت

[ahmad_mustafa]

السلام عليكم 

الاخوة خبراء الأكسس ارجو مساعدتي بالمطلوب بالمرفق بالضغط على زر احسب في نموذج حضور وانصراف  لعمل مجموع كلى لعامود اجمالي الساعات الملون بالأصفر  بتنسيق الوقت وليس الرقم  و من ثم حساب الراتب ولكم الشكر

مجموع كلي للساعات.rar

[ِAbo_El_Ela]

اخي العزيز 

لا ادري اذا كان هناك طريقة لما تريدة ام لا و اترك لخبراء المنتدي الرد 

و هذه صورة لما فعلته من محاولة عندي اذا كانت تفي بالغرض 

لانة عند جعل التنسيق شورت تايم 

سيتم احتساب كل اربعة وعشرين ساعة بيوم و لن يظهر و سوف يظهر من العملية الحسابية كسر اليوم الاخير فقط

و الله اعلم 

[biskra]

جرب ما توصلت اليه فقط دقق ان  كانت النتيجتين مجموع الساعات، و الراتب صحيحتين، لأني لاحظت اختلاف في النتيجة مع ما اقترحه الأخ ABOLO2

مجموع كلي للساعات.rar

[ahmad_mustafa]

اشكرك biskra  الناتج صحيح ولكن  اريد اظهار النتيجة في الفورم كما موضح بالصورة وهل يمكن حساب الراتب واظهار ه 

 

مجموع كلي للساعات2.mdb

تم تعديل مارس 7, 2021 بواسطه ahmus
خطا

[biskra]

تفضل بالمحاولة المتواضعة، و أكيد هناك حلول أحسن، خاصة فيما يخص الراتب التي تحتاج الى تنسيق للتخلق من النقطتين،

مجموع كلي للساعات2.rar

[ِAbo_El_Ela]

2 hours ago, biskra said:

تفضل بالمحاولة المتواضعة، و أكيد هناك حلول أحسن، خاصة فيما يخص الراتب التي تحتاج الى تنسيق للتخلق من النقطتين،

مجموع كلي للساعات2.rar 37.93 kB · 0 downloads

بارك الله في علمك و زادك من العلم

[ahmad_mustafa]

فعلا بارك الله فيك هذا ما كنت اريد.... ولكن بقت مشكلة هي تحويل صيغة قيمة الراتب الناتج الى عملة وليس صيغة زمن

 

 

مجموع كلي للساعات2.rar

[biskra]

محاولة أخرى

مجموع كلي للساعات2.mdb

[ahmad_mustafa]

اشكرك ...فعلا هنا افضل موقع للحلول البرمجية

[biskra]

جرب إضافة عمال آخرين لتتأكد من صحة النتيجة،

[ahmad_mustafa]

السلام عليكم 

بعد الضغط على زر احسب واجهت مشكلة جديدة هي انه يخطا في ناتج دوام موظف سجل حضور مثلا الساعة 16:00 مساء وسجل انصراف ثاني يوم الساعة 8:00 صباحا 

و علما انني وضعت شرط  في .... الوردية سهر ...... شرط اذا زاد عدد الساعات عن 12 ساعة يرجع العدد الى 12 كي لا يسمح للموظف بدوام اكثر من 12 ساعة

يرجى مساعدتي ولك الشكر

مجموع كلي للساعات3.mdb

[biskra]

المشكلة تحتاج الى توضيح، بصورة مثل الصورة التي طرحتها في أول سؤال، و تخدد أين الخطأ و ما هو المطلوب لمحاولة تصحيحه

تم تعديل مارس 10, 2021 بواسطه biskra

[ahmad_mustafa]

مجموع كلي للساعات3.rar

[biskra]

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

[biskra]

الكود وضع في مشاركة أخرى عن طريق الخطأ

Private Sub احسب_Click()
Me.OrderByOn = True
OrderBy = "التاريخ ASC"

DoCmd.Requery
On Error Resume Next

Dim i As Integer
Dim co As Integer

co = DCount("*", "[qhodoor1]")
DoCmd.GoToRecord , , acFirst
For i = Val(num) To co + Val(num) - 1

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''صباحي
If [الوردية] = "صباحي" Then
 If [الانصراف] > [الحضور] Then
   [عددالساعات] = [الانصراف] - [الحضور]
   [اجمالي] = [عددالساعات]

  End If
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''وردية سهر
  If [الوردية] = "سهر" Then
    [عددالساعات] = [الانصراف] - [الحضور] + 1  
 End If
 
If [الوردية] = "سهر" And [عددالساعات] >= "12:00:00" Then
  [اجمالي] = "12:00:00"
End If

If [الوردية] = "سهر" And [عددالساعات] <= "12:0:00" Then
   [اجمالي] = [عددالساعات] - [خصم]
End If
 If [خصم] = Null Then
     [خصم] = "0.0"
 
 
 End If
 
 
 
DoCmd.GoToRecord , , acNext
 
Next i

 
DoCmd.Requery

Exit Sub

DoCmd.Requery


End Sub

 

[sahab2000]

السلام عليكم ورحمة الله و بركاته 

و الله انا عندي نفس المشكله ارغب في برنامج يحسب عدد ساعات التاخير الصباحي ويحسب عدد ساعات التاخير 7 ساعات بشكل تلقائي 

 و استخراج بيان  بايجازات الموظفين  بعد ادخال الايجازات بانواعها ياليت اذا احد عنده خبره يساعدني

ولكم الاجر والثواب 

[ahmad_mustafa]

السلام عليكم ارجو منكم المساعدة في ايجاد ناتج مجموع خصم الساعات وطرحه من المجموع الكلي لساعات الدوام ولكم الشكر

طرح مجموع ساعات من مجموع عامود الخصم.rar