تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لو سمحتوا انا اريد عند كتابة تاريخ الميلادي يظهر لى فى تكس تاريخ المعاش على سن 60 رجل الكهرباء 3 133 17-12-16, 08:54 PM
آخر رد: رجل الكهرباء
  [vb6.0] كيف استطيع ادراج تاريخ من خلال التقويم مباشرة iisys 3 163 29-09-16, 11:02 PM
آخر رد: iisys
  طلب كود لاجراء عملية حسابية على حقل تاريخ gadr 6 410 05-03-16, 12:25 AM
آخر رد: Ahmed_Mansoor
  كبفية عرض تاريخ اليوم في TextBox tighrmte 5 272 20-02-16, 12:44 AM
آخر رد: tighrmte
  [سؤال] اريد كود اذى انتهت تاريخ البطاقة المدنية يعطى تنبية mhareek 8 385 20-01-16, 10:41 AM
آخر رد: VB_Local
  رسالة تذكير عند تاريخ معين alfakeehy 7 430 28-12-15, 04:14 PM
آخر رد: alfakeehy
Shocked كود البحث المتكرر عن تاريخ عبدالرحمن الرشيدي 1 605 29-05-15, 12:51 PM
آخر رد: Amir_alzubidy
Question [vb6.0] هل يمكن تحويل اداة DTPicker1 من تاريخ عربي الى تاريخ الميلادي والعكس ؟؟ Microformt 2 630 14-05-15, 03:46 PM
آخر رد: Microformt
  [vb6.0] هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟ Microformt 3 674 15-05-14, 04:01 AM
آخر رد: Microformt
Question [vb6.0] كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟ Microformt 4 710 21-04-14, 06:46 PM
آخر رد: Microformt

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


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