+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تاريخ النفاذ (/showthread.php?tid=524)
تاريخ النفاذ - hussamalhamadany - 13-10-13
[attachment=330]السلام عليكم
اخواني في هذا النتدى الرائع والكبير
طلبي هو ان يظهر
تاريخ النفاذ تلقائيا بعد انتهاء شهر على تاريخ التسجيل وبشرط ان يظهر تاريخ التسجيل بالفورم الثاني وكل معلوماتة
وكما في المرفق
RE: تاريخ النفاذ - hussamalhamadany - 15-10-13
السلام عليكم اخواني اتمنى ان يكون سؤالي واضح
RE: تاريخ النفاذ - asto - 16-10-13
هل الشهر هو 30 يوم دائما
كود :
Private Sub Command3_Click()
Form2.Show
Form2.Text4.Text = DateAdd("d", 30, Text4)
form2.text1.text=text1.text
form2.text=text2.text
form3.text=text3.text
End SubRE: تاريخ النفاذ - hussamalhamadany - 06-11-13
الشهر 30 او يكون 31
RE: تاريخ النفاذ - asto - 06-11-13
قصدي مثلا اليوم 6/11/2013
فهل بعد شهر يعني 6/12/2013
ام 7/12/2013
و اذا كان اليوم مثلا : 6/12/2013
هل سيكون تاريخ النفاذ هو : 6/1/2014
ام 5/1/2014
ام 7/1/2013
اجب على هذا السؤال حتى اكمل لك الكود
RE: تاريخ النفاذ - hussamalhamadany - 08-11-13
اشكرك اخي بارك الله فيك
قصدي مثلا اليوم 6/11/2013
فيكون 7/12/2013
RE: تاريخ النفاذ - asto - 11-11-13
كود :
Private Sub Command3_Click()
Form2.Show
k=month(now)
k=k+1
if k=13 then k=1
kk=kk+1
endif
kk=year(now)
if k=1 or k=3 or k=5 or k=7 or k=8 or k=10 or k=12 then g=31
if k=4 or k=6 or k=9 or k=11 then g=30
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim ks as Integer
if k=2 then
ks=kk/4
kss=ks*4
kh=kk-kss
if kh=0 then g=28
if not kh=0 then g=29
endif
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Form2.Text4.Text = DateAdd("d", g, Text4)
form2.text1.text=text1.text
form2.text=text2.text
form3.text=text3.text
End Subو يمكنك حذف ما بين
'''''''''''''''
''''''''''''''''
و اضافته الى احد الشرطين فوقها