هل يمكن ظهور تاريخ اليوم السابق

[محمد احمد لطفى]

هل يمكن عند الضعط على الاختيار ( صح) من الساعة 12 منتصف الليل الى الساعة 4 فجراً 
تكون النتيجة بدل أن  يضيف تاريخ اليوم يضيف تاريخ أمس 
و باقى اليوم يضيف التاريخ العادى
يعنى الان الساعة 12:45 بدل أن يضيف تاريخ 25/6/2017 يضيف 24/6/2017
ووجزاكم الله خيرً
وكل عام و حضراتكم طيبون

test1001.rar

[wael_rafat]

اتفضل اخي محمد

عند الضغط ضع هذا الكود 

=date()-1

بالتوفيق

[محمد احمد لطفى]

6 hours ago, wael_rafat said:

اتفضل اخي محمد

عند الضغط ضع هذا الكود 

=date()-1

بالتوفيق

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

6 hours ago, محمد احمد لطفى said:

هل يمكن عند الضعط على الاختيار ( صح) من الساعة 12 منتصف الليل الى الساعة 4 فجراً 
تكون النتيجة بدل أن  يضيف تاريخ اليوم يضيف تاريخ أمس 
و باقى اليوم يضيف التاريخ العادى
يعنى الان الساعة 12:45 بدل أن يضيف تاريخ 25/6/2017 يضيف 24/6/2017
ووجزاكم الله خيرً
وكل عام و حضراتكم طيبون

test1001.rar

 

[محمد احمد لطفى]

يعنى مثلا هنضيف خانة وقت 
if me.time = 00:00:00 and 04:00:00 then

me.test1 = date ( ) -1
or 
me.test1 = test -1

end if 

طبعا هذا الكود لن يعمل 
اريد من حضراتكم المساعدة فى كتابته الكتابة الصحيحة 
وجزاكم الله خيرا
وكل عام و انتم  بخير

[Shivan Rekany]

الان, محمد احمد لطفى said:

يعنى الان الساعة 12:45 بدل أن يضيف تاريخ 25/6/2017 يضيف 24/6/2017

اليك هذا

Private Sub تدقيق4_Click()
    If Time() >= #12:00:01 AM# And Time() <= #4:00:00 AM# Then Me.test1 = Date - 1 Else Me.test1 = Date
End Sub

 

test1001.rar

[محمد احمد لطفى]

جزاك الله خيرا

جزاك الله خيرا