كيف يمكن اظهار تواريخ بدايات ونهاياتا الاسابيع السته القادمة

ممكن توضح أكثر

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

هذا مثالك بعد التعديل

اخوك ناصرر المصاروة

weeks.rar

مشكور وتسلم الايادي اخي ناصر

ربنا يعطيك الصحة والعافية

جزاك الله خيرا اخي ناصر

علي مجهودك بس للاسف اخي ليس هذا ما اريده بالضبط

مااريده هو عند وضع التاريخ في خانة date الموجوده اعلي النموذج تتغير تواريخ السته اسابيع التالية بدايه من يوم الاحد التالي للتاريخ

يعني اذا كان تاريخ اليوم هو 4-آنوفمبر التواريخ للاسابيع السته التاليه تكون

الاسبوع الاول 9-نوفمبر الي 13 نوفمبر

فكرتي هي انه بحصولي علي داله تحدد تاريخ الاحد التالي للتاريخ الموضوع سأتمكن من اضافة خمسة ايام عليها وكذلك 3 للاسبوع التالي وهكذا

بعملية حسابيه بسيطه مشكلتي ببساطه هل هناك داله تعطي تاريخ الاحد التالي للتاريخ الحالي

تحياتي للجميع

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

msafi كتب:

للاسف اخي ليس هذا ما اريده بالضبط

اسف يا اخي لانه لم يكن مطلبك واضحاً في المرة الاولى

msafi كتب:

هل هناك داله تعطي تاريخ الاحد التالي للتاريخ الحالي

اخي لايوجد دالة جاهزه لذلك ولكني عملت لك هذه الدالة

وما عليك سوى ان تضيف الكود التالي الى برنامجك عتد الحدث بحد التحديث لمربع النص "Text0"

Private Sub Text0_AfterUpdate()

If IsNull(Me![Text0]) Then Exit Sub
Dim i, gs As Integer
Dim d As Date
Dim ctrl As Control
	d = Me![Text0]
	gs = 0
	Do While gs <> 1 '' هذا الكود للبحث عن اول يوم احد فمثلاً اذا ادخلت تاريخ يوم الاثنين مثلاً فسيتم تجاوز اول يوم خميس يصادفنا لتكون بداية البحث من يوم الاحد
		gs = Weekday(d, vbSunday)
		If gs = 1 Then Exit Do
		d = DateAdd("y", 1, d)
	Loop 
'' الى هنا ينتهي كود البحث عن اول يوم احد
	i = 1
	Do While i <= 6
		gs = Weekday(d, vbSunday)
		If gs = 1 Then
			For Each ctrl In Me.Controls
				If ctrl.Name = "dat" & i Then ctrl = Day(d) & "-" & emonthname(Month(d))
			Next
		ElseIf gs = 5 Then
			For Each ctrl In Me.Controls
				If ctrl.Name = "dat" & i Then ctrl = ctrl & " to " & Day(d) & "-" & emonthname(Month(d))
			Next
			i = i + 1
			If i > 6 Then
				Exit Do
			End If
		End If
		d = DateAdd("y", 1, d)
	Loop

End Sub

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

اخوك ناصر المصاروة

وهذه دالة يمكنك وضعها كدالة عامة تعيد تاريخ اول يوم احد

Function firstsun(ByVal fromdate As Date) As Date
Dim i, gs As Integer
Dim d As Date

	i = 0
gs=0
	d = fromdate
	Do While gs <> 1
		gs = Weekday(d, vbSunday)
		If gs = 1 Then
			firstsun = d
			Exit Do
		End If
		d = DateAdd("y", 1, d)
	Loop



End Function

ولاستدعاء الدالة ضع هذا الكود

Dim fdt as date
fdt=firstsun (Me![Text0])
'' وهنا المتغير "fdt" سيحمل تاريخ اول يوم احد

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

الله يبارك في علمك اخي ناصر المصاروه

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

نصرك واعزك الله عز وجل

كفيت ووافيت

بســم الله الـرحمــن الرحيــم

اخونا الكريم ناصر المصاروة سلمت يمينك وبارك الله فيك

ملحوظة..

الدالة weekday

عند استخدامها بلا معلمات تعطينا رقما يمثل يوما معينا من ايام الاسبوع

الاحد = 1

الاثنين = 2

وهكذا الى :

الجمعة =7

ومن هذا المنطلق قمت بتطبيق حل مختلف دون تصميم دوال جديدة ودون وضع اكواد داخل احداث النموذج

انظروا الى المرفق وقولوا رأيكم :wub:

weeks.rar

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

ايهاب عثمان كتب:

انظروا الى المرفق وقولوا رأيكم :wub:

الاخ ايهاب ..... "دمرتنا" :S :blink:

اللهم صلى على سيدنا محمد

بسم الله ماشاء الله

[text0]+8-Weekday([text0])

صدقني لشدة دهشتي فقد قمت وعملت فنجان ....عفواً كاسة قهوة كبيرة

اسألك سؤال ؟؟؟

من فين جبت هذه الفكرة؟؟

جاوبني وخذ نص عمري

بس....

ايهاب عثمان كتب:

ملحوظة..

الدالة weekday

عند استخدامها بلا معلمات تعطينا رقما يمثل يوما معينا من ايام الاسبوع

الاحد = 1

الاثنين = 2

وهكذا الى :

الجمعة =7

مسكتك لا تقللي....

الجمعة =6 مش 7

هههههههههه :lol: :lol: :lol: :lol:

لا تزعل اخوي ايهاب؟

الخ ناصر ما بين الاخوة زعل طبعاً

الجمعة = 6 هههههههه

معلش انا متعود ان الجمعة هي نهاية الاسبوع

...................

للامانة يا اخي الكريم فالفكرة ليست وليدة اللحظة انما هي مخزون قديم احتجت اليها سابقا وظللت اكلم نفسي لساعات حتى هداني الله اليها واذكر انني وقتها شربت برميل قهوة :lol:

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

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

واهم ماتعلمته من هذا الموقف ان..

(لا تذهب بعيدا وابحث على الحل ربماكان بين يديك ولكن لاتراه)

الاخ ايهاب شكراً على الرد

ايهاب عثمان كتب:

(لا تذهب بعيدا وابحث على الحل ربماكان بين يديك ولكن لاتراه)

اليوم تعلمت درس جديد

وبالمناسبة لدي نموذج يحتوي على "رزنامة" وهنالك كود طويييييل لتحديد يوم بداية الشهر ونهايته حتى انني غير مقتنع بها ولكن هذه الفكرة اوحت الي ان ابحث عن حل بطريقة مشابهة لهذه الطريقة.

ماتخافش علي .... شاطر بالرياضيات؟ هه هه هه هه

تلميذك ناصر المصاروة

بارك الله فيك اخي الكريم (وأنت أستاذ كبير)

بالنسبة لمشكلتك انا على ثقة ان الله سيوفقك الى أيسر الحلول وأوفاها بإذنه تعالى.

ولكن هل تقصد ان شهر نوفمبر مثلا اوله يوم سبت واخره يوم إثنين... ام ماذا ؟؟

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

اخي ايهاب الله يعطيك العافية

واشكرك على سرعة الرد

هذه المفكرة" الرزنامة" التي لدي وليست بها اي مشكلة سوى ان الكود طوييييييييييييييييييييييييييييييييييييييييييييييييييييييييل

ولما رايت طريقتك السابقة اعجبتني ففكرت بان اعدل المفكرة لتعمل بنفس الطريقة هذه هي المشكلة فقط

db12.rar

اشكرك ومع السلامة

اخوك ناصر المصاروة " وعلى فكرة انا اردني بس من اصل مصري"

نسيت اقللك تصبح على خير لاني رايح انام

Naser Al Masarwa كتب:

نسيت اقللك تصبح على خير لاني رايح انام

يالله اصحى كفاية نوم :D

الاخ الكريم...

قبل التفكير في حل اخر هل جربت هذه الاداة الجاهزة ؟؟

ايهاب عثمان كتب:

يالله اصحى كفاية نوم :D

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

وعندي شغل مش قادر اكمله شكلي بدي اروح اكملها نومة للمغرب.

اخي ايهاب

الرزنامة الى في المثال جزء من برنامج مفكرة مرتبطة بجدول ملاحظات تقوم بتذكيرك بالمواعيد ولها واجبات اخرى لاتفي الرزنامة الافتراضية بالغرض

اشكرك مرة اخرى وتمسي على خير.. : -_-