كيفة جعل يوم السبت أول يوم في الأسبوع

[أبو هادي]

السلام عليكم

مطلوب تجربة هذا الكود وملاحظة النتائج :

Sub test2()

  Dim K As Long


  For K = CLng(#8/16/2003#) To CLng(#8/22/2003#)

    MsgBox Format(K, "dddd") & Chr(13) & _

           "الإفتراضي " & Weekday(K) & Chr(13) & _

           "المطلوب " & Weekday(K, vbSaturday)

  Next K

End Sub

تحياتي .

[محمد طاهر عرفه]

جميل جدا

و إضافة بسيطة

أن الافتراضي أن بداية الاسبوع هو يوم رقم 1 أو الأحد = vbsunday

و فى مثال الأخ أبو هادي وضع بداية الاسبوع السبت

باستخدام vbsaturday او رقم 7

 Weekday(K, 7)

و في حالة وضع رقم صفر بدل 7 يستخدم الاعدادات الافتراضية المناظرة للبلد المختارة فى لوحة تحكم الويندوز

 Weekday(K, 0)

و بالنسبة لحهازي فصفر تعطي نفس نتيجة 7 فى المثال

و البلد عندي مصر

فهل نفس النتيجة لديكم ؟؟

و هذا المثال شامل الاحتمالات كلها الي دالة الاخ ابو هادي لسهولة المقارنة

weekday.zip

[ashraf]

الافتراضي أو رقم 1 الناتج = 7

صفر أو الرقم 7 الناتج = 1

البلد عندي السعودية .

[رحال العمر]

الافتراضي أو رقم 1 الناتج = 7

صفر أو الرقم 7 الناتج = 1

البلد عندي السعودية .

نفس كلام اخي اشرف وفي السعودية ايضا

[أبو هادي]

السلام عليكم

شكرا لك أخي محمد على المثال ، وأعتقد أن الإفتراضي لبداية الأسبوع هو الأحد دائما دون الإعتبار للإعدادات الإقليمية . أما أن رقم 7 تعطي 0 فأعتقد هي منطقية حيث أنه من الفحوصات الداخلية للدالة هو أخذ باقي القسمة على 7 أي الـ Mod 7 .

تحياتي .

[محمد طاهر عرفه]

نعم و ما يرتبط بالاعدادات الاقليمية هو خيار الصفر نفسه ( حسب ما فهمت من التعليمات )

و في حالة وضع رقم صفر بدل 7

يستخدم الاعدادات الافتراضية المناظرة للبلد المختارة فى لوحة تحكم الويندوز

Weekday(K, 0)