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

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


إذهب إلى الإجابة الإجابة بواسطة محمد أبوعبدالله,

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

قام بنشر

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

 

قام بنشر
  في 23‏/11‏/2019 at 03:46, محمد ابوعبد الله said:

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

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

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

تحياتي

Expand  

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

قام بنشر
  في 23‏/11‏/2019 at 14:50, محمد ابوعبد الله said:

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

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

تحياتي

Expand  

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

قام بنشر (معدل)

 

  في 24‏/11‏/2019 at 03:54, محمد ابوعبد الله said:

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

https://up.top4top.net/

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

تحياتي

Expand  

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
قام بنشر

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

  في 24‏/11‏/2019 at 04:17, محمد ابوعبد الله 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

 

 

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

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

تحياتي

Expand  

 

  • 3 weeks later...
قام بنشر (معدل)

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


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

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

 

 

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

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