[ابو اياد@]

السلام عليكم ورحمتة الله وبركاته

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

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

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

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

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

[allayl]

http://vb4arb.com/vb/showthread.php?tid=29

[asto]

اولا عدلت على المثال لكنه يضيف عددا معينا الى عدد السنوات فقط لا غير يعني ربما لن تكون النتيجة دقيقة

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

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

[ابو اياد@]

بارك الله فيكم اخواني allayl و asto
التعديل رائع اخي asto لكن باقي سنوات التطويف وهي
اذا كان الشخص يستحق التترقية في 1\1\1433هـ والتاريخ الحالي هو 1\1\1435هـ يصبح سنوات التطويف 2 سنوات
ان شاءالله وصلت الفكره

[VB_Coder]

السلام عليكم

- أمسح كل الكود الموجود في مثال الأخ 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

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

- تحياتي .

[ابو اياد@]

مشكور استاذ VB_Coder
كود رائع وخفيف
طبعا انا اريد في خانة سنة التطويف اذا كان الناتج اكبر من السنة الحالية يظهر صفر واذا اصغر من السنة الخالية يظهر عدد موجب
ان شاءالله وصلت الفكره اخوي

[VB_Coder]

السلام عليكم

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

كود :

IF Val(Text3.Text) < 0 Then
    Text3.Text = "0"
End IF

- تحياتي .

[ابو اياد@]

شكرا استاذ VB_Coder
بارك الله فيك واسف اتعبتك معي والله يكتب اجرك في كل ضغطه زر للبرنامج
والشكر لكل من رد على الموضوع
وتم شكر الجميع