تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اضافة اشهر للتاريخ
#1
السلام عليكم الله يعطيكم العافيه جميعاٌ
اخواني  مطلوب مثال  
نفرض ان لدي List1  و Text1 و Text2

ول نقل ان Text1 حقل تاريخ مثال 1436/03/11  و Text2 حقل يضاف فيه عدد الاشهر المطلوب اضافتها للتاريخ الموجود ب Text1 

عند اضافة عدد اشهر بالمربع Text2 وعددهم 3 على سبيل المثال المطلوب ان يتم الاضافة للتاريخ الموجود بالمربع الاول وسكون التاريخ  1436/06/11  لاحظ تم تغيير الاشهر فقط وهذا الي انا ابيها والمطلوب من List1 هو يعرض جميع الاشهر المضافه من التاريخ الاساسي الى الاشهر التي تم اضافتها مثال يعرض لي شهر 4 و شهر 5 و شهر 7 فقط يتغير الشهر بينما اليوم يكون ثابت 

صوره توضيحيه


الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

حياك الله اخي الكريم

اود ان اعتذر لك لعدم وجود لغة برمجة على جهازي الحالي ولكن الجل سيكون باذن الله كالتالي:

PHP كود :
private sub Command_click()


dim i as integer
list1
.clear
for 0 to val(text2.text)
  list1.additem year(text1) & "/" month(text1.text) + "/" &day(text1.text)

next i
end sub 
يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة:
#3
شكرا علي المجهود اجابه صحيحة
الرد }}}}
تم الشكر بواسطة:
#4
الله يجزاك خير يامهندس abulayth
ولكن توجد ملاحظه بسيطه

لما اضيف 13 شهر مثلا السنه لاتتغير ويبقى الشهر 13

المطلوب عند نهايه شهر 12 تدخل سنه جديده مثلا اضفنا

14 شهر

سابقا كان 1436/01/11 المطلوب يصبح 1437/02/11

وتسلم على تفاعلك مع الموضوع وسرعه الاجابه

والكود نفس ماطلبت بضبط ينقصه الملاحظه التي ذكرت بعاليه وشكرا
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

جرب الكود التالي

PHP كود :
Private Sub Command1_Click()
Dim ymdAs Integer
Year(Text1.Text)
Month(Text1.Text)
Day(Text1.Text)
List1.Clear
For 0 To Val(Text2.Text)
 
 List1.AddItem y "/" "/" d
  m 
1
  If m 
12 Then m 121
Next i
End Sub 
يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة:
#6
هذا هو المطلوب بضبط

جزاك الله خير يامهندس
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اضافة صورة فى قاعدة البيانات ووضعها فى msflexgrid ؟ gedo 7 232 02-09-16, 04:36 PM
آخر رد: gedo
  الرجاء المساعدة في اضافة ترقيم تلقائي في التقارير algalba 0 219 15-03-16, 05:27 PM
آخر رد: algalba
  [vb6.0] مثال ( اضافة - حذف - بحث ) داخل listbox administrator 5 620 31-12-15, 12:49 AM
آخر رد: administrator
  مشكلة في اضافة فروم النسخ الاحتياطي في المشروع abadi7455 3 254 02-11-15, 01:15 AM
آخر رد: Ahmed_Mansoor
  اضافة قيمة الى متغير احمداحمداحمد6 0 159 18-10-15, 02:22 PM
آخر رد: احمداحمداحمد6
  [vb6.0] كيفية اضافة سجل جديد وادي العوضي 7 336 17-10-15, 09:12 PM
آخر رد: وادي العوضي
Information [سؤال] مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين صهيب محمد 10 541 10-10-15, 11:43 AM
آخر رد: أبو عمر
  [vb6.0] طلب : كود اضافة عنصر في الداتا بيز وظهوره فورا فى الكومبو بوكس hamada salah90 1 288 16-09-15, 06:36 PM
آخر رد: أبو عمر
  تجنب اضافة اسم سجل متشابة abdala 1 310 11-09-14, 08:47 PM
آخر رد: vbnet
  [كود] طريقة اضافة معلومات الى بيان محدد rami700 2 452 04-03-14, 12:09 PM
آخر رد: تركي الحلواني

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


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