سؤال فى العمليات الحسابيه للتواريخ

بالطريقة التالية عزيزي

dim sd as date
dim ed as date
sd="1/1/2007"
ed=dateadd("d",15,sd)
msgbox format(ed,"dd/mm/yyyy")

dim sd as date
dim ed as date
sd="1/1/2007"
ed=dateadd("m",1,sd)
msgbox format(ed,"dd/mm/yyyy")

dim sd as date
dim ed as date
sd="1/1/2007"
ed=dateadd("yyyy",1,sd)
msgbox format(ed,"dd/mm/yyyy")

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

حاولت إرفاق برنامج صغير يوضح لك هذه العمليات لكن لا أدري لا أستطيع ارفاق الملف و لا أدري ما المشكلة

على العموم أنا أفضل عند التعامل مع التواريخ إضافة المكون : DatePicker وذلك من خلال الذهاب لقائمة Project ثم components واختيار العنصر:

Windows Common Controls 2 6.0 sp6

ثم اختيار datepicker من شريط الادوات وإضافة (2) منهم للفورم وتسميتهم dt1 & dt2

قم بإضافة (4) optionbutton

يوم option1

أسبوع option2

شهر option3

سنة option4

ثم إضافة الكود التالي:

Private Sub option1_Click()
	DT2.Value = DT1.Value
	DT2.Enabled = False
End Sub

Private Sub option2_Click()
	DT2.Value = DT1.Value + 7
	DT2.Enabled = False
End Sub

Private Sub option3_Click()
	DT2.Value = DateAdd("m", 1, Trim(DT1.Value))
	DT2.Value = DateAdd("d", -1, Trim(DT2.Value))
	DT2.Enabled = False
End Sub

Private Sub option4_Click()
	DT2.Value = DateAdd("yyyy", 1, Trim(DT1.Value))
	DT2.Value = DateAdd("d", -1, Trim(DT2.Value))
	DT2.Enabled = False
End Sub

وتجربة البرنامج و إن شاء الله تجد ما يسرك

وشكراً

الحمد لله نجحت في إرفاق الملف المثال الذي يوضح العمليات على التواريخ

Date_Calculation.rar