تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تاريخ النفاذ
#1
[attachment=330]السلام عليكم
اخواني في هذا النتدى الرائع والكبير
طلبي هو ان يظهر
تاريخ النفاذ تلقائيا بعد انتهاء شهر على تاريخ التسجيل وبشرط ان يظهر تاريخ التسجيل بالفورم الثاني وكل معلوماتة
وكما في المرفق
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم اخواني اتمنى ان يكون سؤالي واضح
الرد }}}
تم الشكر بواسطة:
#3
هل الشهر هو 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 Sub
الرد }}}
تم الشكر بواسطة:
#4
الشهر 30 او يكون 31
الرد }}}
تم الشكر بواسطة:
#5
قصدي مثلا اليوم 6/11/2013

فهل بعد شهر يعني 6/12/2013

ام 7/12/2013

و اذا كان اليوم مثلا : 6/12/2013

هل سيكون تاريخ النفاذ هو : 6/1/2014

ام 5/1/2014

ام 7/1/2013

اجب على هذا السؤال حتى اكمل لك الكود
الرد }}}
تم الشكر بواسطة:
#6
اشكرك اخي بارك الله فيك
قصدي مثلا اليوم 6/11/2013
فيكون 7/12/2013
الرد }}}
تم الشكر بواسطة:
#7
كود :
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

و يمكنك حذف ما بين
'''''''''''''''
''''''''''''''''
و اضافته الى احد الشرطين فوقها
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ Microformt 2 721 04-08-22, 10:21 PM
آخر رد: Microformt
  تاريخ أول / أخر تاريخ فى الشهر فى سنة محددة aboezzat84 0 889 02-01-21, 04:45 AM
آخر رد: aboezzat84
  [vb6.0] كيف استطيع ادراج تاريخ من خلال التقويم مباشرة iisys 4 3,395 23-04-20, 03:31 AM
آخر رد: alaanet_system@yahoo.com
  تحويل تاريخ الجهاز لفورمات محدد hannileo 1 1,232 16-04-20, 01:12 AM
آخر رد: AL_BRNS
  البحث بين تاريخ باستخدام ادة calender date.ocx gonm64 4 1,709 05-01-20, 12:15 AM
آخر رد: Ahmed_Mansoor
  تغيير تاريخ الجهاز dr.mostashar 4 2,345 02-11-18, 02:24 AM
آخر رد: AL_BRNS
  استفسار بخصوص عمل تاريخ صلاحية للبرنامج mhareek 10 3,244 19-03-18, 08:08 PM
آخر رد: mhareek
  استعلام عن تاريخ في حقل في برنامجي محمد حمد محمد 21 5,881 31-01-18, 05:33 PM
آخر رد: Amir_Alzubidy
  ترتيب تاريخ المنحة حافظ حافظ 8 2,844 13-10-17, 12:45 AM
آخر رد: حافظ حافظ
  [كود] تحويل تاريخ الى نص Microsoft Visual Basic 6.0 4 2,428 22-09-17, 01:46 AM
آخر رد: Microsoft Visual Basic 6.0

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم