*كود*أول و آخر يوم فى الشهر

استخدم دالة الإضافة على التاريخ dateadd بالصيغة التالية

DateAdd("m", 1, "1/1/2002")

المتغير الأول هو لتحديد المقياس الذي ستتم إضافته وهو هنا m أي الشهر

الثاني عدد الأشهر

الثالث التاريخ الذي ستتم الإضافة عليه

تحياتي

جرب هذا الإجراء

Sub Test()

  Dim YY, MM

  

  YY = 2002

  MM = 5

  

  MsgBox DateSerial(YY, MM, 1)

  MsgBox DateSerial(YY, MM + 1, 0)

End Sub

تحياتي

السلام عليكم

الاخوة ابو هاجر / ابو هادي

شكرا كثيرا لشروحاتكم الجادة ولكن

اظن بأنني لم استطع ايصال سؤالي اليكم كما اردت ؟

اخواني : يوجد مربع نص يدخل فيه المستخدم أي تاريخ يرغب به ( ممكن قبل شهرين او سنه او يومين ) المهم في حدث بعد التحديث اريد دالة تستخلص اليوم الاول من الشهر الذي ادخله المستخدم و دالة اخرى تستخلص اخر يوم في ذلك الشهر .

وجزاكم الله خيرا

تحملونا بارك الله فيكم .

:D

أخي الكريم

السلام عليكم وبعد

افرض أن التاريخ الذي أدخله المستخدم موجود في المتغير mydate

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

startdate= cdate("1/" & datepart(mydate,"m") "/" & datepart(mydate,"yyyy") )





enddate = DateAdd("d",-1,DateAdd("m", 1, mydate ))

ربما يكون هناك طريقة أسهل لكنني كتبت ماخطر في ذهني

لم أجرب الكود آمل تجربته والإفادة

كما عودتنا يا مبدع

ما شاء الله و الله يوفقك في الماجستير

سوف اجرب الكود و اوافيك بالنتائج .

تحياتي

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

اخي ابو هاجر

لقد جربت الكود ولاحظت التالي

الدالة الاولى لم تعمل .

الدالة الثانية ( معرفة آخر يوم في الشهر )

1- إذا ادخل المستخدم تاريخ اليوم الاول من الشهر فترجع الداله بتاريخ آخر يوم في الشهر .

2- إذا ادخل المستخدم تاريخ عشوائي فتضيف الدالة مقدار شهر كامل على التاريخ المدخل .

مثال على النقطة الاولى :

ادخلت تاريخ 01/02/2004 رجعت الدالة تاريخ 29/02/2004

مثال على النقطة الثانية :

ادخلت تاريخ 12/10/2002 رجعت الدالة تاريخ 11/11/2002

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

مع التحية والشكر لأبو هاجر

أخي العزيز :

طبيعي ان بداية الشهر هي 1

لذلك فإن تاريخ بداية أي شهر هي:

sdate=cdate("1/" & mn & "/" & yr)

حيث أن mn هو الشهر و yr هي السنه

ولإيجاد نهاية الشهر:

مرر الى الداله الأتيه رقم الشهر m ورقم السنة y

private function GetEndDate(m as byte , y as integer) as date
dim m2 as byte
dim y2 as integer
dim date2 as date
y2=y
m2=m+1
if m2=13 then m2=1 : y2=y+1

date2=cdate("1/"  & m2 & "/"  & y2 )

return   DateAdd("d",-1,date2)

end function

أخي الكريم فيصل

السلام عليكم

بداية أعتذر عن الخطأ الذي حصل لكن يظهر أن كثرة الدراسة أثرت علي فبدأت في قلب متغيرات الدوال

المشكلة في الدالة الأولى أنني قلبت المتغيرات فوضعت التاريخ قبل متغير الفترة أما السطر الثاني فكان من المفترض أن يأخذ نتيجة السطر الأول وليس التاريخ الخام

على كل هذا الكود بعد التعديل

startdate= CDate("1/" & DatePart("m",mydate) & "/" & DatePart("yyyy",mydate))



enddate = DateAdd("d",-1,DateAdd("m", 1, startdate))

ختاماً أكرر اعتذاري

أخوك / أبو هاجر

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

:D :D :D :D :D :D :D :D :D

(f) (f) (f) (f) (f) (f) (f) (f) (f) (f) (f)

100 %

جزاك الله خيرا كثيرا ووفقك الله في دراسة الماجستير

وبارك الله في وقتك.

اخوك ابو عبدالرحمن

الحمد الله

مع الشكر للأخ خالد عفيفي .

تمت برمجة هذا الكود بفضل الله ثم بجهود اخينا ابو هاجر

لو تكرمت وكما عودتنا دائما ادعمنا بمثال عن ذلك مع جزيل الشكر والتقدير وفقك الله . :mad:

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

اليكم مثال على تطبيق الفكرة

تحياتي

أخي الكريم فيصل

السلام عليكم

أشكرك شكراً جزيلاً على أن كفيتني مؤونة كتابة المثال وليت كل من تلقى المساعدة من هذا المنتدى رد الجميل إليه سريعاً ليستفيد الجميع

تحية لك من الأعماق ولأحبابنا أهل الجبيل

أخوك / أبو هاجر

ملحوظة توجد طريقة أكثر طولا فى موضوع سابق

و قد تفيد بصورة أخري فى موضوع آخر

http://www.arabteam2000.com/vb/showthread....7706#post117706