الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤالي الأخير " ما هي دالة شهر معين في السنة "

مغلق
بدأه عضو جديد في 13 فبراير 2003 · 12 رد · 1,314 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السادة أعضاء المنتدى

ما هي الدالة التي تظهر اسم الشهر فقط في النموذج أي بدون اظهار اليوم أو السنة ، و كذلك اريد كتابة كود بأستخدام هذه الدالة مثلاً كما يلي

يناير = [ الدالة ] if

then

10 = a

elsa

20 = a

أيها السادة

لقد سعدت جداً لمعرفتكم ، و لقد تعلمت على أيديكم ما لم أعرفه من الكتب ، و لقد ساعدني هذا كثيراً في فهم قواعد البيانات ، و لقد كنت أحياناً أتوجه اليكم بأسئلة بسيطة و أحياناً لا أجد الاجابة لديكم على أسئلة قد تبدو معقدة بالنسبة لي كما حدث مع تساؤلي " هل يمكن إختيار حقل معين من قائمة منسدلة " ، لذلك قررت أن يكون هذا هو تساؤلي الأخير إليكم ، فلم أقصد أن اثقل عليكم بأسئلتي و سوف أكتفي بحق المشاهدة و الاستماع من بعيد

و لكم مني كل تقدير و عرفان بالجميل

اخوكم

عضو جديد

#2

انشئ مربع نص وفى صفحة البيانات ضع القيمة الافتراضية لمربع النص ما يلي

=Format(Date();"mmm")

ونفذ النموذج ستجد مربع النص به اسم الشهر الحالى من تاريخ الجهاز

#3

السلام عليكم

اقتباس
لذلك قررت أن يكون هذا هو تساؤلي الأخير إليكم ، فلم أقصد أن اثقل عليكم بأسئلتي و سوف أكتفي بحق المشاهدة و الاستماع من بعيد  

و لكم مني كل تقدير و عرفان بالجميل

ربما أنك قلت ذلك لعدم معرفتك بالمنتدى جيدا ..

" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------

#4

لقد ارسلت سؤال وما هو بسؤال

اليك رد اخر لتعرف مدى قدرة اعضاء المنتدى على الرد على الأسئلة

 If Now.Month = 2 Then

            MsgBox(Today.Month.ToString)

        Else : MsgBox("not the correct month")

        End If
#5

أخي أشرف خليل

شكراً لك على ردك ، لقد كان هذا هو المطلوب بالنسبة للشق الأول من السؤال

أما بالنسبة للشق الثاني فانني اريد دالة للتاريخ أقوم بتحديد شهر معين لها مثلاً

يناير = [ الدالة ] if

then

10 = a

و اريد استخدمها كشرط في تنفيذ إستعلام و كذلك في عمل ماكرو بحيث إذا صادف التاريخ هذا الشهر يتم تنفيذ الاجراء الشرطي " 10 = a مثلاً "

لقد قمت باستخدام دلة الأخ عبد العظيم غنيم" Now.Month = 2 " و لكنها لم تنجح

***

أخي الفاروق

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

#6

نفرض أنه لديك مربع نص اسمه month طبعا وتضع القيمة الافتراضيه له ما وضعته سابقا وهو اظهار الشهر

ضع هذا الكود فى حدث عند الفتح للنموذج مثلا وجرب

If Me.month = "فبراير" Then
MsgBox "أهلا وسهلا"
End If

يمكنك استبدال الأمر msgbox بأي أمر تريده

#7

أخي أشرف خليل

لقد وضعت الدالة

Me.month = "فبراير"

في الاستعلام و عند تشغيله طلب مني "إدخال القيمة المعلمة لـ Me.month " ، مع أنه من المفترض أن القيمة موجودة و هي شهر " فبراير "

و من ناحية اخرى

لقد حاولت وضع المعادلة في ماكرو في المكان المخصص لوضع الشروط و لكن الماكرو رفض المعادلة

أخي أشرف

اريد استعمال هذه المعادلة مرة في إستعلام و عدة مرات في ماكرو ، لذلك الرجاء المساعدة فالأمر مهم بالنسبة لي ، لقد بدأت معكم من الصفر و تعلمت منكم الكثير و إنني الآن أعمل برنامج و بقيت هذه المشكلة فالرجاء مساعدتي في إيجاد حل لها

مع الشكر

#8

السلام عليكم

توجد دوال للتواريخ سهلة الإستخدام كالتالي :

Day(myDate) لاستخراج اليوم من أي تاريخ

Month(myDate) لاستخراج الشهر من أي تاريخ

Year(myDate) لاستخراج السنة من أي تاريخ

ويمكن استخدام دالة استخراج الشهر كالتالي :

Dim myDate As Date

myDate = date



Select Case Month(myDate)

  Case 1: MsgBox "يناير"

  Case 2: MsgBox "فبراير"

  Case 3: MsgBox "مارس"

  Case 4: MsgBox "أبريل"

  Case 5: MsgBox "مايو"

  Case 6: MsgBox "يونيو"

  Case 7: MsgBox "يوليو"

  Case 8: MsgBox "أغسطس"

  Case 9: MsgBox "سبتمبر"

  Case 10: MsgBox "اكتوبر"

  Case 11: MsgBox "نوفمبر"

  Case 12: MsgBox "ديسمبر"

End Select

تحياتي

#9

الأخ العضو الجديد :

لو تحاول وضع مثال يكون أفضل .

أخي أبو هادي : كل عام وأنتم بخير

#10

..

#11

كل عام أخي أشرف وأنت بخير .. وشكرا على سؤالك .

والحقيقة أنا مقصر معك وإن شاء الله نعوض تلك الأيام الضائعة ونتواصل أكثر .

أخوك أبو هادي

#12

السلام عليكم

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

monthname(month(date))

ويمكن استخدامها في أي شرط لفحص القيمة المعادة من الدالة

تحياتي

#13

اود أن أتوجه بالشكر لجميع الاخوة الزملاء و بخاصة الأخ أشرف خليل

لقد قمت بحل المشكلة كما يلي

إستناداً إلى رد الأخ أشرف قمت بانشاء مربع نص باسم " نص16" و فى صفحة البيانات وضعت القيمة الافتراضية لمربع النص كما يلي

=Format(Date();"mmm")

و في المكرو و تحت حقل الشروط وضعت الشرط

[نص16] = "فبراير"

و هكذا إذا صادف الشهر الحالي " فبراير " يتم تنفيذ الاجراء الشرطي و إذا لم يصادف يتم تجاهله

و الشكر للجميع

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…