تقييم الموضوع :
  • 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 
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

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

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



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


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