التاريخ والوقت

[eissa_l]

السلام عليكم أخواني .. عملت برنامج كاشير لمطعم بس في عندي نقطة أن التاريخ حاطة قيمة إفتراضية Date () يعني مثلا إذا تاريخ اليوم 11/23/2019 بعد الساعة 12 في الليل بيتغير التاريخ إلى 11/24/2019 هل من الممكن أو في كود يخلي التاريخ يقلب مثلا بعد 5 الفجر أو أي وقت المصمم يختارة بحيث لا تدخل الإيرادت في بعضها .. وكمان عندي فرع المطعم حاط لة قيمة إفتراضية ب فرع معين هل هناك إمكانية المستخدم يغير القيمة الإفتراضية لفرع المطعم بدون تدخل المصمم عن طريق عمال خيارات أو شيء من هذا القبيل بحيث أنة شيء صعب أن يكون المستخدم يختار فرع المطعم في كل فاتورة بيع وشكرا مقدما

 

[محمد أبوعبدالله]

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

جرب الكود التالي

    If Now() >= #12:00:00 AM# Or Now() = #5:00:00 AM# Then
    
       Text0.Value = Date - 1
    Else
       Text0.Value = Date
    End If

تحياتي

[eissa_l]

6 hours ago, محمد ابوعبد الله said:

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

جرب الكود التالي

    If Now() >= #12:00:00 AM# Or Now() = #5:00:00 AM# Then
    
       Text0.Value = Date - 1
    Else
       Text0.Value = Date
    End If

تحياتي

طيب لو سمحت فين ممكن أحطة!! حيث أنة حاط القيمة الإفتراضية Date()

[محمد أبوعبدالله]

يمكن اضافته في حدث عند الفتح او حدث قبل التغيير

جرب اخي الكريم ووافقينا بالنتيجة

تحياتي

[eissa_l]

12 hours ago, محمد ابوعبد الله said:

يمكن اضافته في حدث عند الفتح او حدث قبل التغيير

جرب اخي الكريم ووافقينا بالنتيجة

تحياتي

أستاذي العزيز الكود أشتغل بس بعض الأحيان يطلع لي خطاء عند الخروج وكمان بعد الساعة 5 الفجر أستمر ينقص يوم في التاريخ ف إذا ماعليك أمر ممكن أرفع لك الملف كلة تشوفة وكمان تتكرم بخبرتك تعطينا رئيك وإذا في تعديلات ممكن تنحط ع البرنامج ف إذا ما عندك مشكلة ممكن تكتب لي إيميلك أرفع لك هو ولك جزيل الشكر 

[محمد أبوعبدالله]

25 دقائق مضت, eissa_l said:

إذا ماعليك أمر ممكن أرفع لك الملف كلة تشوفة

بانتظارك اخي الكريم

تحياتي

[eissa_l]

حاولت أرفعة هنه بس مارضي إذا ممكن إيميلك

3 minutes ago, محمد ابوعبد الله said:

بانتظارك اخي الكريم

تحياتي

 

[محمد أبوعبدالله]

اضغط الملف اولاً ثم ارفعه على موقع

https://up.top4top.net/

https://www.gulf-up.com/

تحياتي

[eissa_l]

 

4 minutes ago, محمد ابوعبد الله said:

اضغط الملف اولاً ثم ارفعه على موقع

https://up.top4top.net/

https://www.gulf-up.com/

تحياتي

https://up.top4top.net/downloadf-1423kj3741-rar.html

https://up.top4top.net/downloadf-1423kj3741-rar.html

رقعت الملف أستاذي العزيز أنتظر نصائحك عشان أستفيد منك إن شاء الله 

 

تم تعديل نوفمبر 24, 2019 بواسطه eissa_l

[محمد أبوعبدالله]

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

Private Sub Form_Load()
   If Now() >= #12:00:00 AM# And Now() <= #7:00:00 AM# Then
    
       Sdate.Value = Date - 1
    Else
       Sdate.Value = Date
    End If
End Sub

 

 

البرنامج اكثر من رائع اخي الكريم

وفقك الله لما يحب ويرضى

تحياتي

[eissa_l]

شكرا أستاذي العزيز على التعديل ورفع المعنويات 😍

5 hours ago, محمد ابوعبد الله said:

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

Private Sub Form_Load()
   If Now() >= #12:00:00 AM# And Now() <= #7:00:00 AM# Then
    
       Sdate.Value = Date - 1
    Else
       Sdate.Value = Date
    End If
End Sub

 

 

البرنامج اكثر من رائع اخي الكريم

وفقك الله لما يحب ويرضى

تحياتي

 

[mohamed orhan]

اريد تجديد التاريخ واضافه عدد سنوات

لو سمحت معادله تجديد شهور  السنه واضافه عدد سنوات

[سلمان الشهراني]

انا كان عندي هذي المشكله وهي تداخل الفواتير للمحلات الي تكون فاتحه بعد الساعه 12
وبفضل الله ثم مساعدة الاساتذه 
تم حلها 
حيث يوضع حقل تاريخ ووقت في حدول الفواتير
وحقل بداية العمل في جدول الاعدادات الخاصه بالنظام

وعملتت لك مثال مصغر
طبعا الفكره كالتالي
1- يكون ضمن شاشة اعدادات النظام وقت بداء العمل او فتح المحل يتم تثبيتها قبل الاستخدام
2- عند الاستعلام عن الدخل تعمل كماهو موضح في شاشة الصندوق

اتمنى ان اكون افدتك

 

 

التحكم بالايراد دون تداخل.rar

تم تعديل ديسمبر 16, 2019 بواسطه سلمان الشهراني