الفرق بين تاريخين او طرح تاريخ من تاريخ أخر

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

1- تصميم الفورم

(2) text box كالأتي تحمل الأسماء

T1 , T2

(1) Label كالأتي تحمل إسم lbl1

(1) Command كالأتي تحمل إسم calc

2- الكود

Private Sub Calc_Click()
If IsNull(Me.T1) Or IsNull(Me.T2) Then Exit Sub
lbl1 = Calcdate(Me.T1, Me.T2)
End Sub


Function Calcdate(vDate1 As Date, vdate2 As Date)
	Dim vYears As Integer, vMonths As Integer, vDays As Integer
	vMonths = DateDiff("m", vDate1, vdate2)
	vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
	If vDays < 0 Then
		vMonths = vMonths - 1
		vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
	End If
	vYears = vMonths \ 12
	vMonths = vMonths Mod 12
	Calcdate = vYears & "سنة,  " & vMonths & "شهر,  " & vDays & "يوم"
End Function

علما بأن T1 يتم كتابة فيها التاريخ الأول

والـ T2 التاريخ الثاني

والـ lbl1 سوف يظهر فيها النتيجة عن الضغط علي زر Calc

ونكون كذا إنتهاينا من المشكلة التي يواجهها الكثير

أرجو الدعاء لي ولوالدي

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