حساب الفارق الزمني بين توقيتين

[alomari]

لدي سجل حضور بحيث من ياتي للمكتب يسجل رقم ملفه تظهر بياناته وهذا ممتاز لكن اللي ابغاه وش الكود اللي يخليني اعرف كم عدد ساعات التأخير على موظف معين يعني جا الموظف الساعه 8.00 ص والدوام عندي من 7.30 تماما ابغى كود يسجل 30 دقيقه داخل حقل  الوقت المتأخر شكرا لكم 

[النجاشي]

2 ساعات مضت, alomari said:

لدي سجل حضور بحيث من ياتي للمكتب يسجل رقم ملفه تظهر بياناته وهذا ممتاز لكن اللي ابغاه وش الكود اللي يخليني اعرف كم عدد ساعات التأخير على موظف معين يعني جا الموظف الساعه 8.00 ص والدوام عندي من 7.30 تماما ابغى كود يسجل 30 دقيقه داخل حقل  الوقت المتأخر شكرا لكم 

اخي الكريم ارفق القاعده حتي يتبن لهم اكثر الشاب ما راح يقصرو معاك

[sandanet]

عنوان موضوعك مخالف اخي الكريم 

[صالح حمادي]

السلام عليكم:

أولا: يجب عليك إختيار عنوان مناسب للموضوع كما تنص قوانين المنتدى:

1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

لذلك فقد قمت بتغيير عنوان الموضوع.

ثانيا: بالنسبة لسؤالك يمكنك حساب الوقت بهذا الكود:

Me.time_rottar = DateDiff("n", Me.time_entre, Time())

بحيث:

time_rottar هو مربع النص الذي ستظهر به النتيجة

time_entre هو مربع النص الذي يحتوي على توقيت الدوام.

"n" من أجل حساب الفارق بالدقائق و يمكن تغييرها من بـــ "h" من أجل حساب الفارق بالساعات

[alomari]

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

سجل 1.rar

[صالح حمادي]

السلام عليكم

أضف هذا الكود في حدث بعد التحديث لمربع النص:

Dim x As Integer, x1 As Integer, x2 As Integer

x = DateDiff("n", "7:30", Time())
x1 = Int(x / 60)
x2 = (x - x1 * 60)
Me.نص24 = x1 & IIf(x1 > 2, " ساعات و ", " ساعة و ") & x2 & IIf(x2 > 2 And x2 < 11, " دقائق", " دقيقة")

و هذا المرفق بعد التعديل:

 

سجل 1.rar

[alomari]

الله يرحم والديك اخي صالح .. جزيت خيرا