ارجو مساعدتي
لدي حقل من نوع تاريخ وقت
time
وحقل c تظهر فيه النتيجة في نموذج
ارغب في التالي
عند ادخال الوقت من 7:30 الي 8.00 يعطيني الحقل c صفر
وعند ادخال الوقت من 8:01 فمافوق تكون نتيجة الحقل c
الوقت المدخل + 00:30
مثال
8:05 بيكون الناتج التاخر 00:35
8:16 بيكون الناتج التاخر 00:46
7:12 بيكون الناتج التاخر 00:00
مساعدة في حساب حقل تاريخ وقت
مغلقمُجاب
Dim LDate As Date
Dim LTime As Date
LTime = Me.a
Me.a = Format((Me.a), "Short TIME")
If ("08:01:00" > LTime) And (LTime > "7:29:00") Then
Me.b = Format(("00:00:00"), "Short TIME")
'Me.t2 = ("00:00:00")
Else
'LDate = DateAdd("n", 30, Me.t1)
Me.b = Format(DateAdd("n", 30, Me.a), "Short TIME")
End If
Me.t1 = Format((Me.a), "Short TIME")
Me.t2 = Format((Me.b), "Short TIME")هذا الكود في يوضع بعد التحديث لمربع النص الأول الخاص بإدخال الوقت
شكرا لك على سرعة الرد فالكود نجح معي ولكن يحتاج لتعديل بسيط
نتيجة التاخر تكون بدقائق مثال المطلوب
8:16 بيكون الناتج التاخر 00:46
09:00 بيكون الناتج التاخر01:30
في المثال الذي تم اعدادة من قبلكم
8:16 بيكون الناتج التاخر 08:46
9:00 بيكون الناتج التاخر 09:30
شاكر لك تعاونك معي
لك كل الشكر مشرفتنا الغالية
ارغب ان تحفظ النتائج في حقل بالجدول
وبارك فيكي
و شكرا أ. زهـرة
ولا نستطيع الاستغناء عن مشاركاتك للاستفادة منها .
اخي العزيز اختنا الغالية والمشرفة المتميزة
اعجز عن شكركم ولا املك لكم غير الدعاء لكم في ظاهر الغيب بدوام الصحة والهافية ورضى الرحمن
هذا الموضوع مغلق.