الوقت المتبقي

[eng aoff]

السلام عليكم استاذتي الكرام

احتاج عدد الساعات المتبقية حسب تاريخ اليوم وجزاكم الله خيراً

time.accdb

[ابو جودي]

الوقت المتبقى على شو

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

الله يرضى عنيك وضح

[عمر ضاحى]

هل هذا ما تريد ؟

time.accdb

[eng aoff]

استاذي العزيز @ابو جودي رمضان كريم عليكم 

مثلا تم تسجيل الدخول لمستخدم النظام بتاريخ اليوم 

اريد عدد الساعات المتبقية لنهاية اليوم 

يعني مثلا تم تسجيل الدخول الساعة العاشرة صباحا

اريد ان يحسب عدد الساعات المتبقي للساعة 11:59PM وان يكون عداد الوقت تنازلي 

[عمر ضاحى]

2 دقائق مضت, eng aoff said:

استاذي العزيز @ابو جودي رمضان كريم عليكم 

مثلا تم تسجيل الدخول لمستخدم النظام بتاريخ اليوم 

اريد عدد الساعات المتبقية لنهاية اليوم 

يعني مثلا تم تسجيل الدخول الساعة العاشرة صباحا

اريد ان يحسب عدد الساعات المتبقي للساعة 11:59PM وان يكون عداد الوقت تنازلي 

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

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

 

وما قمت بعمله هو تعديل الكود الخاص بك 

Private Sub Form_Timer()
Dim TT As Integer
TT = TimeValue("11:59:59 PM")
Me.t1 = Time()
Me.t2 = TT - Me.t1
End Sub

 

[ابو جودي]

1 دقيقه مضت, عمر ضاحى said:

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

بس فى فرق دقيقه 

ماليش دعوة اناا عاوز الدقيقة دى بقه

[ابو جودي]

طيب الحل ببساطة يكون

t2 = DateAdd("N", 1, Format(#11:59:59 PM# - Time(), "HH:MM:SS"))

 

[ابو جودي]

مش سامع حد بيرد يعنى

 

[Eng.Qassim]

41 دقائق مضت, ابو جودي said:

مش سامع حد بيرد يعنى

😂انت اليوم فايق ورايق

ياعم ..انت النجم بتاعنا

[eng aoff]

2 ساعات مضت, ابو جودي said:

طيب الحل ببساطة يكون

t2 = DateAdd("N", 1, Format(#11:59:59 PM# - Time(), "HH:MM:SS"))

 

جزاكم الله خير الجزاء @ابو جودي @عمر ضاحى  

هذا المطلوب 

[عمر ضاحى]

48 دقائق مضت, ابو جودي said:

مش سامع حد بيرد يعنى

 

ههههههههههههههههههههه

الله يعطيك الف عافيه

شوفت الامر سهل ازاى 

مش اسطر ومدري ايش 

ابداع

[eng aoff]

كيف ممكن اجعل نظام الوقت 24 وليس 12 ؟!!

@عمر ضاحى @ابو جودي @Eng.Qassim

[ابو جودي]

في 19‏/4‏/2022 at 23:13, eng aoff said:

كيف ممكن اجعل نظام الوقت 24 وليس 12 ؟!!

بسيطة برضو 

اتفضل يا سيدى 

t2= "- " & Format(DateAdd("N", 1, Format(#11:59:59 PM# - Time(), "HH:mm:ss")), "HH:mm:ss")

 

[Eng.Qassim]

او في Formt  النص ضع

HH:mm:ss

[ابو جودي]

30 دقائق مضت, Eng.Qassim said:

او في Formt  النص ضع

HH:mm:ss

هو كلام معاليك صح جدا جدا جدا طبعا يا أفندم  

بس جرب الكود وانت تعرف الفرق 

اولا الوقت يعمل على نظام 24 ساعة بإضافة علامة الـ سالب ( - )  يسار الوقت

عداد الوقت يعمل تنازليا وبدون اى مشاكل وبدون الاعتماد على مربع النص t1  الدال على الوقت الحالى 

اى يمكنك ترك t1  يعمل على نظام الـ 12 ساعة 

و t2  يعمل بالعد التنازلى على نظام الـ 24 ساعة 

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

يعنى علشان لو مستقبلا حب يعدل شئ ما يلفلف حوالين نفسه 

 

[eng aoff]

جزاكم الله خيرا @ابو جودي @Eng.Qassim