اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


eissa_l
إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

الردود الموصى بها

السلام عليكم أخواني .. عملت برنامج كاشير لمطعم بس في عندي نقطة أن التاريخ حاطة قيمة إفتراضية 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

تحياتي

رابط هذا التعليق
شارك

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()

رابط هذا التعليق
شارك

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

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

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

تحياتي

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

رابط هذا التعليق
شارك

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

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

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

تحياتي

رابط هذا التعليق
شارك

 

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

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

 

تم تعديل بواسطه 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

 

 

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

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

 

 

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

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

تحياتي

 

رابط هذا التعليق
شارك

  • 3 weeks later...

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


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

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

 

 

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

تم تعديل بواسطه سلمان الشهراني
  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information