طلب داله حسابيه للاضافى

[عمر ضاحى]

السلام عليكم 

بعد اذن حضرتكم 

كنت عاوز صيغة لدالة حسابيه للوقت الاضافى 

عندي مربع نص به وقت الدوام (اخر الوقت) (الافتراضى)

عندي مربع نص به وقت الدوام (اخر الوقت) (الفعلى)

عندي مربع نص به تاريخ اليوم 

اريد ان اعمل دالة حسابيه 

احسب الفرق بين (Innn) و (txtTimeOut)  واضع شرطين هنا

الشرط الاول اذا كان تاريخ اليوم هو يوم الخميس 

الشرط الثاني اذا كان تاريخ اليوم هو يوم الجمعه

علما ان اى اعمال تتم يوم الجمعه هو وقت اضافى

مرفق ملف للتوضيح

وبرجاء اذا فشلت فى توضيح ما اريد اسألوني فى النقطه المبهمه ولكم جزيل الشكر

 

OT.accdbFetching info...

[عمر ضاحى]

للرفع

 

[Eng.Qassim]

تفضل استاذ عمر.. حاول ان تغير التاريخ الى يوم الخميس والجمعة

 

OT.accdbFetching info...

[عمر ضاحى]

  في 15‏/1‏/2022 at 16:23, Eng.Qassim said:

تفضل استاذ عمر.. حاول ان تغير التاريخ الى يوم الخميس والجمعة

 

OT.accdb 640 kB · 0 downloads

Expand  

استاذي المهندس قاسم بارك الله فيك وامد الله فى عمرك وعافيتك 

لك مني كل الشكر والعرفان 

ولى ملاحظه بعد اذن حضرتك

يوم الجمعه يحسب كله كيوم اضافى اى لو عملت من الساعه السابعه صباحا حتى التاسعه صباحا يحسب لى 2 ساعه اضافى وهكذا حسب عدد ساعات العمل يوم الجمعه 

اعتقد انها هنا يحسب فترة العمل كانها اضافى صحيح !

هذا الترجمه الصحيحه للنقطه دي

تم تعديل يناير 15, 2022 بواسطه عمر ضاحى

[Eng.Qassim]

لماذا ظهر لك بالسالب؟

هذا عندي

الظاهر انك غيرت بالكود..بصراحة انا عملت الكود حسب فهمي للدوام

 

 

تم تعديل يناير 15, 2022 بواسطه Eng.Qassim

[عمر ضاحى]

  في 15‏/1‏/2022 at 17:11, Eng.Qassim said:

لماذا ظهر لك بالسالب؟

هذا عندي

الظاهر انك غيرت بالكود..بصراحة انا عملت الكود حسب فهمي للدوام

 

 

Expand  

والله ما ادري ^_^

[Eng.Qassim]

  في 15‏/1‏/2022 at 17:16, عمر ضاحى said:

والله ما ادري ^_^

Expand  

😂

طيب قارن هذا الكود بالموجود عندك

Me.day1.SetFocus
If Me.day1.Text = "الخميس" Then
    Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) Mod 60
ElseIf Me.day1.Text = "الجمعة" Then
    Me.txtOT = DateDiff("n", [txtDwamIn], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtDwamIn], [txtDwamOut]) Mod 60

Else
   Me.txtOT = DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) Mod 60
End If

او غير اسم الخميس والجمعة للانكليزي

[عمر ضاحى]

  في 15‏/1‏/2022 at 17:21, Eng.Qassim said:

😂

طيب قارن هذا الكود بالموجود عندك

Me.day1.SetFocus
If Me.day1.Text = "الخميس" Then
    Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) Mod 60
ElseIf Me.day1.Text = "الجمعة" Then
    Me.txtOT = DateDiff("n", [txtDwamIn], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtDwamIn], [txtDwamOut]) Mod 60

Else
   Me.txtOT = DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) Mod 60
End If

او غير اسم الخميس والجمعة للانكليزي

Expand  

نفس الكود 

[Eng.Qassim]

  في 15‏/1‏/2022 at 18:07, عمر ضاحى said:

نفس الكود 

Expand  

طيب غير اسماء الخميس والجمعة للانكليزي

If Me.day1.Text = "Thursday" Then
    Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) Mod 60
ElseIf Me.day1.Text = "Friday" Then

 

[عمر ضاحى]

  في 15‏/1‏/2022 at 18:41, Eng.Qassim said:

طيب غير اسماء الخميس والجمعة للانكليزي

If Me.day1.Text = "Thursday" Then
    Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) Mod 60
ElseIf Me.day1.Text = "Friday" Then

 

Expand  

طيب ايه رايك لو اضفنا دالة OR 

بحيث اذا جاء الخميس عربي او انجليزي مختصر او كامل كله يكون موجود ؟

[Eng.Qassim]

  في 15‏/1‏/2022 at 19:00, عمر ضاحى said:

طيب ايه رايك لو اضفنا دالة OR

Expand  

والله مافكرت فيها ..

عفارم عليك

[عمر ضاحى]

هى فعلا اشتغلت لما حولتها انجليزي

بس الاجهزة كلها مش زي بعض 
فى بعض الاجهزي عندي مفهاش اللغه العربيه خالص 

[عمر ضاحى]

Me.day1.SetFocus
If (Me.day1.Text) = "Thursday" Or (Me.day1.Text) = "الخميس" Then
    Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) Mod 60
ElseIf (Me.day1.Text) = "Friday" Or (Me.day1.Text) = "الجمعة" Then
    Me.txtOT = DateDiff("n", [txtDwamIn], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtDwamIn], [txtDwamOut]) Mod 60

Else
   Me.txtOT = DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) Mod 60
End If

بعد اذن حضرتك طبعا انا حبيت اعدل واشوف اذا كان كده صح

لو التسميه عند حضرتك عربي جربها شوف هتشتغل بالتركيبه دي 

 

تم تعديل يناير 15, 2022 بواسطه عمر ضاحى

[Eng.Qassim]

  في 15‏/1‏/2022 at 19:16, عمر ضاحى said:

لو التسميه عند حضرتك عربي جربها شوف هتشتغل بالتركيبه دي

Expand  

بتعطيني خطأ ... لكن لما جربت الكود التالي اشتغل صحيح

If Me.day1.Text = "Thursday" Or Me.day1.Text = "الخميس" Then

 

[عمر ضاحى]

هناك مشكلة اخرى ايضا 

لما حبيت انقل الكود للبرنامج الرئيسي

ظهرلى ده

  في 15‏/1‏/2022 at 19:23, Eng.Qassim said:

بتعطيني خطأ ... لكن لما جربت الكود التالي اشتغل صحيح

If Me.day1.Text = "Thursday" Or Me.day1.Text = "الخميس" Then

 

Expand  

تمام انا باشيل الاقواس

[عمر ضاحى]

انا جربت انى اضيف متغير علشان يعمل العمليه الحسابيه على كل سجل لحاله 

بهذه الطريقه 

On Error GoTo Errw
Dim i As Integer
DoCmd.GoToRecord , , acFirst
 For i = 1 To Me.Recordset.RecordCount
Me.day1.SetFocus
If (Me.day1.Text) = "Thursday" Or (Me.day1.Text) = "الخميس" Then
    Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtTimeOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtTimeOut]) Mod 60
ElseIf (Me.day1.Text) = "Friday" Or (Me.day1.Text) = "الجمعة" Then
    Me.txtOT = DateDiff("n", [txtTimeIn], [txtTimeOut]) \ 60 & ":" & DateDiff("n", [txtTimeIn], [txtTimeOut]) Mod 60

Else
   Me.txtOT = DateDiff("n", [txtStanderTimeOut1], [txtTimeOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut1], [txtTimeOut]) Mod 60
End If
DoCmd.GoToRecord , , acNext
GoTo nxfor
nxfor:
    Next i
Exit Sub
Errw:

لكني لم اوفق فى هذا 

ف انا شايف ان لو قدرنا نحول الكود من VBA الى دالة حسابيه اعتقد ممكن يشتغل دون مشاكل 

[Eng.Qassim]

استاذ عمر .. ممكن تبعتلي البرنامج الرئيسي ؟

بس مش اواعدك اليوم .. لاني ح نام لان بكرى عندي دوام

انا حابب اكمل المشروع مع حضرتك

[عمر ضاحى]

  في 15‏/1‏/2022 at 19:34, Eng.Qassim said:

استاذ عمر .. ممكن تبعتلي البرنامج الرئيسي ؟

بس مش اواعدك اليوم .. لاني ح نام لان بكرى عندي دوام

انا حابب اكمل المشروع مع حضرتك

Expand  

ابشر 
سوف اقوم بحذف الداتا المهمه واضيف اى بيانات اخرى 

انا كده كده كنت عاوز انشر المشروع بعد ما انتهي من البرمجه ليه ومن ثم التنسيق النهائي حتى يكون اداة قد تساعد من يحتاجه هنا

واسف انى سهرت حضرتك 

وانا ايضا كنت هنام لو ما وجدت حل ^_^ باصحه على 5 الفجر ^_^

تم تعديل يناير 15, 2022 بواسطه عمر ضاحى

[عمر ضاحى]

مرفق البرنامج كامل 

حضور وانصراف موظفين_TestV31.rarFetching info...

[عمر ضاحى]

انا جربت اعملها بهذه الصورة 

=IIf([day1].[Text]="Thursday";(DateDiff("n";[txtStanderTimeOut2];[txtTimeOut])\60 & ":" & DateDiff("n";[txtStanderTimeOut2];[txtTimeOut]) Mod 60);IIf([day1].[Text]="Friday";(DateDiff("n";[txtTimeIn];[txtTimeOut])\60 & ":" & DateDiff("n";[txtTimeIn];[txtTimeOut]) Mod 60);(DateDiff("n";[txtStanderTimeOut1];[txtTimeOut])\60 & ":" & DateDiff("n";[txtStanderTimeOut1];[txtTimeOut]) Mod 60)))

لكنها اعطتني خطأ 
#نوع!

 

حد يعرف السبب ؟

[عمر ضاحى]

للرفع

رفع الله قدركم 

[عمر ضاحى]

للرفع

[عمر ضاحى]

للرفع رفع الله قدركم

[عمر ضاحى]

مبدئيا كده 

عرفت احل مشكلة الخطأ

وكان فى وجود الزائده

.[Text]

لكن عمل الداله ثابت على عملية حسابيه واحدع والمفترض ان الداله تتغير حسابها حسب الشرط الموضوع له

هذه الداله بعد الاصلاح

=IIf([day1]="Thursday";(DateDiff("n";[txtStanderTimeOut2];[txtTimeOut])\60 & ":" & DateDiff("n";[txtStanderTimeOut2];[txtTimeOut]) Mod 60);IIf([day1]="Friday";(DateDiff("n";[txtTimeIn];[txtTimeOut])\60 & ":" & DateDiff("n";[txtTimeIn];[txtTimeOut]) Mod 60);(DateDiff("n";[txtStanderTimeOut1];[txtTimeOut])\60 & ":" & DateDiff("n";[txtStanderTimeOut1];[txtTimeOut]) Mod 60)))

هل ممكن احد ينظر لها نظرة تمعن ويجد لى الخطأ !

[Eng.Qassim]

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

واسف عن التاخير بسبب المشاغل وبسبب ان الكيبورد تبعي (قافل معاي)

 

حضور وانصراف موظفين_TestV31Q.accdbFetching info...