اذهب الي المحتوي
أوفيسنا

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

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

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

 

أما بعد..

اخواني واساتذتي الكرام .. ابحث عن كود يمنع تنفيذ اي اجراء خلال يومي الجمعة والسبت

بمعنى اخر اذا كان اليوم هو يوم جمعة او سبت "طبعاً على حسب تقويم جهاز الكومبيوتر" افعل الأمر الفلاني والا قم بفعل الأمر الفلاني

 

وشكراً

تم تعديل بواسطه sandanet
قام بنشر (معدل)

بارك الله فيك أخي كرار على هذا الحل لكن الكود يعتمد على تسمية يومي الجمعة والسبت بالعربي فقط يعني لو كان تاريخ الجهاز Friday او Saturday فانه لايستجيب

لكني اضفت التالي :

If x = "الجمعة" Or x = "Friday" Or x = "السبت" Or x = "Saturday" Then

واصبحت الامور تمام التمام :wavetowel:

 

تحياتي

تم تعديل بواسطه sandanet
قام بنشر
منذ ساعه, sandanet said:

 


If x = "الجمعة" Or x = "Friday" Or x = "السبت" Or x = "Saturday" Then

 

السلام عليكم

يوجد افضل من ذلك وهي الدالة  :

Weekday(Date();1)

تعطي رقم اليوم في الاسبوع  من 1 الى 7

والرقم واحد الموجود في الدالة يدل على ان اول ايام الاسبوع هو يوم الاحد

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

فاذا اردت ان تضع شرطا ليوم الجمعة يكون الكود كالتالي :

if Weekday(Date();1) = 6 then

 

قام بنشر

ماشاء الله عليك استاذنا ابوخليل

طيب استاذ ابوخليل انت قلت 

4 ساعات مضت, ابوخليل said:

 

تعطي رقم اليوم في الاسبوع  من 1 الى 7

 

 

هل ارقام الايام معرفة مسبقاً في دالة ال weekday ونجن فقط نختار اليوم؟

اذا كان الجواب نعم فباعتقادي انها افضل حل لانها تغظ النظر عن الاعدادات الاقليمية للغة الجهاز .. أليس كذلك؟

 

واخيراً السؤال هو كيف تكتب الدالة اذا اردت وضع شرطاً ليومي الجمعة والسبت؟ 

تحياتي

قام بنشر

نعم الايام  معرفة مسبقا  وتأخذ اليوم من التاريخ  ()Date   الذي هو فعلا تاريخ الجهاز

ولاشتراط الجمعة والسبت تكتب الدالة هكذا :

if Weekday(Date();1) = 6  or Weekday(Date();1) = 7 then

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

  • Like 3
قام بنشر

اشكرك جزيل الشكر استاذي القدير ابوخليل على هذا الكود وقد تم تجربته بنجاح .. اتمنى ان تستمر معنا في عطائك واسأل الله ان يوفقك في ذلك 

تحياتي

  • Like 1

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