السلام عليكم ورحمتة الله وبركاته
بارك الله فيكم اخواني على مساعدتكم لنا
لدي هذا المشروع البسيط لكن عجزت اكتب الكود وان شاءالله مارح تقصرون معنا
المشروع عباره عن احتساب استحقاق الترقيه الى المرتبه الجديدة
نريد ان نكتب تاريخ اخر ترقية في المربع الاول ومن ثم نحدد عدد السنوات من البوكس ومن يظهر لنا تاريخ الاستحقاق في المربع الثاني وعند تعدي التاريخ لعدد السنوات يظهر في المربع الثالث عدد السنوات التطويف
اتمنى وصلت الفكره يوجد المثال في المرفقات
ولكم جزيل الشكر مقدما
اولا عدلت على المثال لكنه يضيف عددا معينا الى عدد السنوات فقط لا غير يعني ربما لن تكون النتيجة دقيقة
لذا عليك كتابة برنامج للعام الهجري حيث كم يوما فيه و هل توجد سنوات خاصة فيها عدد ايام اكثر (اذا لم يوجد ذلك اهمل هذه الخطوة)
و ما هي سنوات التطويف تلك
بارك الله فيكم اخواني allayl و asto
التعديل رائع اخي asto لكن باقي سنوات التطويف وهي
اذا كان الشخص يستحق التترقية في 1\1\1433هـ والتاريخ الحالي هو 1\1\1435هـ يصبح سنوات التطويف 2 سنوات
ان شاءالله وصلت الفكره
السلام عليكم
- أمسح كل الكود الموجود في مثال الأخ 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
كود رائع وخفيف
طبعا انا اريد في خانة سنة التطويف اذا كان الناتج اكبر من السنة الحالية يظهر صفر واذا اصغر من السنة الخالية يظهر عدد موجب
ان شاءالله وصلت الفكره اخوي
السلام عليكم
- أضف هذا الجزء في آخر كود زر "احسب" :-
كود :
IF Val(Text3.Text) < 0 Then
Text3.Text = "0"
End IF
- تحياتي .
شكرا استاذ VB_Coder
بارك الله فيك واسف اتعبتك معي والله يكتب اجرك في كل ضغطه زر للبرنامج
والشكر لكل من رد على الموضوع
وتم شكر الجميع