تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] مساعدة في كتابة كود برنامج
#1
السلام عليكم ورحمتة الله وبركاته

بارك الله فيكم اخواني على مساعدتكم لنا
لدي هذا المشروع البسيط لكن عجزت اكتب الكود وان شاءالله مارح تقصرون معنا

المشروع عباره عن احتساب استحقاق الترقيه الى المرتبه الجديدة

نريد ان نكتب تاريخ اخر ترقية في المربع الاول ومن ثم نحدد عدد السنوات من البوكس ومن يظهر لنا تاريخ الاستحقاق في المربع الثاني وعند تعدي التاريخ لعدد السنوات يظهر في المربع الثالث عدد السنوات التطويف

اتمنى وصلت الفكره يوجد المثال في المرفقات

ولكم جزيل الشكر مقدما


الملفات المرفقة
.rar   date.rar (الحجم : 1.42 ك ب / التحميلات : 123)
الرد
تم الشكر بواسطة:
#2
http://vb4arb.com/vb/showthread.php?tid=29
الرد
تم الشكر بواسطة: ابو اياد@
#3
اولا عدلت على المثال لكنه يضيف عددا معينا الى عدد السنوات فقط لا غير يعني ربما لن تكون النتيجة دقيقة

لذا عليك كتابة برنامج للعام الهجري حيث كم يوما فيه و هل توجد سنوات خاصة فيها عدد ايام اكثر (اذا لم يوجد ذلك اهمل هذه الخطوة)

و ما هي سنوات التطويف تلك


الملفات المرفقة
.rar   date.rar (الحجم : 1.69 ك ب / التحميلات : 130)
الرد
تم الشكر بواسطة: ابو اياد@
#4
بارك الله فيكم اخواني allayl و asto
التعديل رائع اخي asto لكن باقي سنوات التطويف وهي
اذا كان الشخص يستحق التترقية في 1\1\1433هـ والتاريخ الحالي هو 1\1\1435هـ يصبح سنوات التطويف 2 سنوات
ان شاءالله وصلت الفكره
الرد
تم الشكر بواسطة:
#5
السلام عليكم

- أمسح كل الكود الموجود في مثال الأخ asto و إستبدله بهذا الكود :

كود :
Private Sub Command1_Click()

Text2.Text = Format$(DateAdd("YYYY", Val(Combo1.Text), Text1.Text), "YYYY/MM/DD")

Dim zYears As Integer, zMonths As Integer

Calendar = vbCalHijri

zYearsDiff = DateDiff("YYYY", Text2.Text, Date)
zMonthsDiff = DateDiff("M", Text2.Text, Date)
zMonthsDiff = zMonthsDiff - (zYearsDiff * 12)

If zMonthsDiff > 0 Then
   Text3.Text = zYearsDiff & "." & zMonthsDiff
Else
   Text3.Text = zYearsDiff
End If

End Sub

Private Sub Form_Load()

Dim I As Integer

Combo1.Clear

For I = 1 To 10
    Combo1.AddItem I
Next

End Sub

- ملاحظة :- إذا صار رقم سنوات التطويف فيه نقطه أو كسور فما بعد النقطه هو عدد الأشهر .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: ابو اياد@ , ناجي إبراهيم
#6
مشكور استاذ VB_Coder
كود رائع وخفيف
طبعا انا اريد في خانة سنة التطويف اذا كان الناتج اكبر من السنة الحالية يظهر صفر واذا اصغر من السنة الخالية يظهر عدد موجب
ان شاءالله وصلت الفكره اخوي
الرد
تم الشكر بواسطة:
#7
السلام عليكم

- أضف هذا الجزء في آخر كود زر "احسب" :-

كود :
IF Val(Text3.Text) < 0 Then
    Text3.Text = "0"
End IF

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة:
#8
شكرا استاذ VB_Coder
بارك الله فيك واسف اتعبتك معي والله يكتب اجرك في كل ضغطه زر للبرنامج
والشكر لكل من رد على الموضوع
وتم شكر الجميع
الرد
تم الشكر بواسطة: VB_Coder


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] تشغيل برنامج بالفجول بيسك 6 مع sql mshrif 9 289 15-04-19, 10:38 AM
آخر رد: mshrif
Question احتاج برنامج لضغط الصور بالفيجوال بيسك 6 ياقوتة 0 143 12-02-19, 06:34 PM
آخر رد: ياقوتة
  طريقة كتابة المسار داخل قيمة في الريجيستري الرجل الرمادي 3 148 10-02-19, 08:05 PM
آخر رد: Amir Alzubidy
Thumbs Up مساعدة في اداة DataGrid توليب 4 183 10-02-19, 02:59 PM
آخر رد: توليب
  مشكلة في برنامج عند تثبيته في حاسوب اخر tighrmte 5 189 02-02-19, 03:32 PM
آخر رد: tighrmte
  [vb6.0] اريد مساعدة في برنامج صلاحيات المستخدمين توليب 3 272 24-01-19, 07:58 PM
آخر رد: توليب
  مساعدة في كود tighrmte 1 147 10-01-19, 06:51 AM
آخر رد: عبدالله الصافي
Video احتاج مساعدة من مبرمجي الفجوال بسيك 6 hicham716 41 1,544 07-01-19, 03:13 AM
آخر رد: hicham716
  احتاج مساعدة في الكومبو بوكس scsi7000 3 226 28-12-18, 11:22 AM
آخر رد: scsi7000
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 312 25-12-18, 12:34 PM
آخر رد: aboezzat84

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


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