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

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

مغلق
بدأه migo702000 في 15 ديسمبر 2006 · 3 رد · 751 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

كيف يمكن اجراء عمليه حسابيه على التواريخ بالتصور الآتى

التاريخ مثلا 01/01/2007

المطلوب اولا

مثلا اضافة 15 يوم ليصبح التاريخ 16/01/2007

المطلوب ثانيا

مثلا اضافة شهر ليصبح التاريخ 01/02/2007

المطلوب ثالثا

مثلا اضافة سنه ليصبح التاريخ 01/01/2008

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

#2

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

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")
#3

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

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

على العموم أنا أفضل عند التعامل مع التواريخ إضافة المكون : 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

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

وشكراً

تم تعديل هذه المشاركة بواسطة fairnet في 20 ديسمبر 2006 في 15:58

#4

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

Date_Calculation.rar

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

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