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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة زر امر الى اداة list view hannileo 8 132 04-12-18, 03:45 PM
آخر رد: hannileo
  لا استطيع حفظ المشروع بعد اضافة اداة shockwaveflash ? Alhootti1 0 129 30-08-18, 08:01 PM
آخر رد: Alhootti1
  [سؤال] كود بالنسبة للتاريخ amer2000 2 137 07-02-18, 12:20 PM
آخر رد: amer2000
  كيفية اضافة خواص لاداة UserControl ؟ gedo 0 197 17-01-18, 05:35 PM
آخر رد: gedo
  [سؤال] كيفية اضافة صورة وكيفية اضافة فيديوو ؟؟! shimaasa 6 376 15-01-18, 07:43 PM
آخر رد: shimaasa
  رسالة خطأ عند اضافة جديد hannileo 2 342 27-09-17, 09:10 AM
آخر رد: hannileo
  كيفية اضافة صورة فى قاعدة البيانات ووضعها فى msflexgrid ؟ gedo 7 1,276 02-09-16, 04:36 PM
آخر رد: gedo
  الرجاء المساعدة في اضافة ترقيم تلقائي في التقارير algalba 0 591 15-03-16, 05:27 PM
آخر رد: algalba
  [vb6.0] مثال ( اضافة - حذف - بحث ) داخل listbox administrator 5 1,441 31-12-15, 12:49 AM
آخر رد: administrator
  مشكلة في اضافة فروم النسخ الاحتياطي في المشروع abadi7455 3 814 02-11-15, 01:15 AM
آخر رد: Ahmed_Mansoor

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


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