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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بخصوص عمل تاريخ صلاحية للبرنامج mhareek 10 454 19-03-18, 08:08 PM
آخر رد: mhareek
  استعلام عن تاريخ في حقل في برنامجي محمد حمد محمد 21 417 31-01-18, 05:33 PM
آخر رد: Amir_alzubidy
  ترتيب تاريخ المنحة حافظ حافظ 8 349 13-10-17, 12:45 AM
آخر رد: حافظ حافظ
  [كود] تحويل تاريخ الى نص Microsoft Visual Basic 6.0 4 263 22-09-17, 01:46 AM
آخر رد: Microsoft Visual Basic 6.0
  ارجو المساعده اخوانى الاحباب "" تاريخ اخر عملية " mhareek 22 1,229 23-08-17, 06:02 PM
آخر رد: mhareek
  اريد احدث تاريخ يظهر في (text1.txt) scsi7000 4 349 01-08-17, 07:17 PM
آخر رد: scsi7000
Question [vb6.0] نامل المساعدة العاجلة عندي في تاريخ الحاسب اليوم 3 هجري والبرنامج يقول لي اليوم 4؟؟ Microformt 4 554 11-02-17, 12:27 AM
آخر رد: Ahmed_Mansoor
  [سؤال] النسخ واللصق لخليه فى اكسل بشرط تغير تاريخ اليوم norhan 4 786 26-01-17, 01:51 AM
آخر رد: norhan
  لو سمحتوا انا اريد عند كتابة تاريخ الميلادي يظهر لى فى تكس تاريخ المعاش على سن 60 رجل الكهرباء 3 567 17-12-16, 08:54 PM
آخر رد: رجل الكهرباء
  [vb6.0] كيف استطيع ادراج تاريخ من خلال التقويم مباشرة iisys 3 675 29-09-16, 11:02 PM
آخر رد: iisys

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


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