[sphinx]

Dim strDate As Date
Dim strate As Date
Dim next1 As Date
next1 = DtpBCG.Value
Me.Dtpnext1.Value = next1.AddMonths(2)
strate = Dtpnext1.Value
strDate = Today
TextBox2.Text = DateDiff(DateInterval.Day, strate, strDate)
هذا كود الاظافة addmonthوالمقارنه بدالة datediff لكن ينقصني شرط لدالة المقارنه datediff اذا كان كبر من 30 يوم يكون الطفل متسرب واذا كان اقل من 30 يكون غير متسرب
اشكرك جدا على مواصلة الاجابة معي
حاولت ان اارفق البرنامج لكن حجمه كبير