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

[migo702000]

السلام عليكم ورحمة الله وبركاته ؛؛؛؛
كيف يمكن اجراء عمليه حسابيه على التواريخ بالتصور الآتى
التاريخ مثلا 01/01/2007
المطلوب اولا
مثلا اضافة 15 يوم ليصبح التاريخ 16/01/2007
المطلوب ثانيا
مثلا اضافة شهر ليصبح التاريخ 01/02/2007
المطلوب ثالثا
مثلا اضافة سنه ليصبح التاريخ 01/01/2008
مع ملاحظة اننى لا اريد ان يكون كل قيمه من التاريخ فى خانه منفصله اريد ان تتم العمليه فى ال Textbox لكامل التاريخ مباشرة

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

[(li) صقر (li)]

في فورم جديد , انشئ :
1/ ثلاث أزرار أمر
2/ أربعة مربعات نص
اجعل الخاصية (Name) لكل منهم كما هو موضخ في الصورة :
-----------------------------------------


http://www.servamega.com/img/76ef1aad0825061163ca7b10635321ee/%D8%B4%D8%B1%D8%AD.JPG


-----------------------------------------
حيث أن :
زر 1 = يعني إضافة ما في الخانة "TP" إلى عدد الأيام الذي في الخانة "TD" .
زر 2 = يعني إضافة ما في الخانة "TP" إلى عدد الشهور الذي في الخانة "TM" .
زر 3 = يعني إضافة ما في الخانة "TP" إلى عدد السنين الذي في الخانة "TY" .

مربع 4 "TY" = السنين
مربع 5 "TM" = الشهور
مربع 6 "TD" = الأيام
مربع 7 "TP"= مقدار الإضافة
-----------------------------------------
ثم اضغط على الفورم , وظلل ما في نافذة الكود ثم الصق عليه :

Private Sub Cd_Click()
Dim x As Integer
Dim y As Integer, z As Integer
x = CInt(TD.Text)
y = CInt(TP.Text)
z = x + y
TD.Text = CStr(z)
End Sub
Private Sub Cm_Click()
Dim x As Integer
Dim y As Integer, z As Integer
x = CInt(TM.Text)
y = CInt(TP.Text)
z = x + y
TM.Text = CStr(z)
End Sub
Private Sub Cy_Click()
Dim x As Integer
Dim y As Integer, z As Integer
x = CInt(TY.Text)
y = CInt(TP.Text)
z = x + y
TY.Text = CStr(z)
End Sub


ومعلش فأنا لا أعرف كيف أجعلها لكامل التاريخ وسأبحثلك في هذا بإذن الله قريباً


أرجو الرد

والسلام....

[يــس]

اليك الحل أخي :
أولا:-عليك انشاء ثلاث أزرار أمر :AddDays,AddMonth,AddYears
-مربع واحد نص:Text1

هذاهو الكود ان شاء الله تمام 100% :

Dim dDate As Date
Private Sub AddDays_Click()
If IsDate(Text1.Text) Then

dDate = CDate(Text1.Text)
dDate = DateAdd("d", 1, dDate)
Text1.Text = CStr(dDate)

End If

End Sub

Private Sub AddMonth_Click()
If IsDate(Text1.Text) Then

dDate = CDate(Text1.Text)
dDate = DateAdd("m", 1, dDate)
Text1.Text = CStr(dDate)

End If
End Sub

Private Sub AddYears_Click()
If IsDate(Text1.Text) Then

dDate = CDate(Text1.Text)
dDate = DateAdd("yyyy", 1, dDate)
Text1.Text = CStr(dDate)

End If
End Sub

اذا كان هناك أي استفسار أنا في الخدمة
تحياتي