[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

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

- تحياتي .