منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم الله يعطيكم العافيه جميعاٌ
اخواني مطلوب مثال
نفرض ان لدي List1 و Text1 و Text2

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

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

صوره توضيحيه

السلام عليكم

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

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

PHP كود :

private sub Command_click()


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

next i
end sub 

يعطيك العافية

شكرا علي المجهود اجابه صحيحة

الله يجزاك خير يامهندس abulayth
ولكن توجد ملاحظه بسيطه

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

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

14 شهر

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

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

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

السلام عليكم

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

PHP كود :

Private Sub Command1_Click()
Dim y, m, d, i As Integer
y = Year(Text1.Text)
m = Month(Text1.Text)
d = Day(Text1.Text)
List1.Clear
For i = 0 To Val(Text2.Text)
  List1.AddItem y & "/" & m & "/" & d
  m = m + 1
  If m > 12 Then m = m - 12: y = y + 1
Next i
End Sub 

يعطيك العافية

هذا هو المطلوب بضبط

جزاك الله خير يامهندس

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الحائطي

abulayth

adel_3812

الحائطي

abulayth

الحائطي