ربط وقت الدخول بالتاريخ اذا كان الساعه 2او3 او4

[النجاشي]

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

احبتي

الموضوع عندي بنموذج العقد نص عدد الأيام فعندما اضع عدد يطينا تاريخ بنفس العدد فاريد

يكتمل الكود الذي بعد التحديث بالايام

أي اذا كان الوقت الساعه 2او 3 صباحا  وادخلت عدد 1 يعطينا تاريخ نفس اليوم واذا كان الساعه 4 صباحا الي 11 صباحا يعطينا لليوم الثاني وكلما حطيت عدد اكبر بالايام  يعطينا اكبر بالتاريخ

ربط الوقت بالتاريخ.rar

[Shivan Kurdi - شڤان کوردی]

اليك هذا الكود

اذا دخلت من ساعة 12 صباحا الى ساعة 4 صباحا سيكون الناتج تاريخ اليوم زائد تاريخ في الحقل الايام

واذا دخلت في غير ساعة سيعطيك تاريخ اليوم زائد تاريخ حقل الايام زائد واحد

    If Me.وقت_الدخول >= #12:00:00 AM# And Me.وقت_الدخول <= #4:00:00 AM# Then
            Me.endcont = Date + Me.Alaim
                Else
            Me.endcont = (Date + Me.Alaim) + 1
    End If

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

اليك القاعدة بعد تعديل

 

ربط الوقت بالتاريخ.rar

[النجاشي]

7 دقائق مضت, Shivan Rekany said:

اليك هذا الكود

اذا دخلت من ساعة 12 صباحا الى ساعة 4 صباحا سيكون الناتج تاريخ اليوم زائد تاريخ في الحقل الايام

واذا دخلت في غير ساعة سيعطيك تاريخ اليوم زائد تاريخ حقل الايام زائد واحد

    If Me.وقت_الدخول >= #12:00:00 AM# And Me.وقت_الدخول <= #4:00:00 AM# Then
            Me.endcont = Date + Me.Alaim
                Else
            Me.endcont = (Date + Me.Alaim) + 1
    End If

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

اليك القاعدة بعد تعديل

 

ربط الوقت بالتاريخ.rar

استاذي القدير العفو منك أرسلت لك  الفكره فيها شبه خطاء وقت الدخول من 12 صباحا أي 4 صباحا يكون العد واحد والتاريخ هو الحالي ليس زائد اما فوق الساعه 4 يعطينا تاريخ اكبر بحسب عدد الأيام اتاسف منك كثير استاذي أبو محمد

[Shivan Kurdi - شڤان کوردی]

    If Me.وقت_الدخول >= #12:00:00 AM# And Me.وقت_الدخول <= #4:00:00 AM# Then
            Me.endcont = (Date + Me.Alaim) - 1
                Else
            Me.endcont = Date + Me.Alaim
    End If

 

ربط الوقت بالتاريخ.rar

[النجاشي]

منذ ساعه, Shivan Rekany said:

    If Me.وقت_الدخول >= #12:00:00 AM# And Me.وقت_الدخول <= #4:00:00 AM# Then
            Me.endcont = (Date + Me.Alaim) - 1
                Else
            Me.endcont = Date + Me.Alaim
    End If

 

ربط الوقت بالتاريخ.rar

اسال الله العظيم اخي ان يوفقك ويبارك فيك وجزاك الله خير تمام هو المطلوب شكرا لك كثير

استاذي الغالي شفان ريكاني 

تحياتي لك