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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود بالنسبة للتاريخ amer2000 2 31 07-02-18, 12:20 PM
آخر رد: amer2000
  كيفية اضافة خواص لاداة UserControl ؟ gedo 0 51 17-01-18, 05:35 PM
آخر رد: gedo
  [سؤال] كيفية اضافة صورة وكيفية اضافة فيديوو ؟؟! shimaasa 6 100 15-01-18, 07:43 PM
آخر رد: shimaasa
  رسالة خطأ عند اضافة جديد hannileo 2 153 27-09-17, 09:10 AM
آخر رد: hannileo
  كيفية اضافة صورة فى قاعدة البيانات ووضعها فى msflexgrid ؟ gedo 7 981 02-09-16, 04:36 PM
آخر رد: gedo
  الرجاء المساعدة في اضافة ترقيم تلقائي في التقارير algalba 0 464 15-03-16, 05:27 PM
آخر رد: algalba
  [vb6.0] مثال ( اضافة - حذف - بحث ) داخل listbox administrator 5 1,223 31-12-15, 12:49 AM
آخر رد: administrator
  مشكلة في اضافة فروم النسخ الاحتياطي في المشروع abadi7455 3 638 02-11-15, 01:15 AM
آخر رد: Ahmed_Mansoor
  اضافة قيمة الى متغير احمداحمداحمد6 0 327 18-10-15, 02:22 PM
آخر رد: احمداحمداحمد6
  [vb6.0] كيفية اضافة سجل جديد وادي العوضي 7 774 17-10-15, 09:12 PM
آخر رد: وادي العوضي

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


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