بإذن الله يكون هذا الكود هو المطلوب
تم استعمال dateadd لاضافة الايام والشهور والاعوام لتاريخ معين
واستعمال دالة datedif لحساب الفرق بين تاريخين
Private Sub CommandButton1_Click()
TextBox2 = DateAdd("d", Val(TextBox6), TextBox1)
TextBox2 = DateAdd("m", Val(TextBox5), TextBox2)
TextBox2 = DateAdd("yyyy", Val(TextBox4), TextBox2)
TextBox3 = DateAdd("m", (Val(TextBox4) * -3), TextBox2)
TextBox7 = Evaluate("DATEDIF(" & CDbl(Date) & "," & CDbl(CDate(TextBox3)) & ", ""md"")")
TextBox9 = Evaluate("DATEDIF(" & CDbl(Date) & "," & CDbl(CDate(TextBox3)) & ", ""ym"")")
TextBox8 = Evaluate("DATEDIF(" & CDbl(Date) & "," & CDbl(CDate(TextBox3)) & ", ""y"")")
MsgBox "Done by mr-mas.com"
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1, "yyyy/mm/dd")
End Sub
Private Sub TextBox2_Change()
TextBox2.Text = Format(TextBox2, "yyyy/mm/dd")
End Sub
Private Sub TextBox3_Change()
TextBox3.Text = Format(TextBox3, "yyyy/mm/dd")
End Sub
بالتوفيق