[sphinx]

دعني اوضح لك اكثر
مثلا لدي طفل لقح بتاريخ 20/7/2015  وهو تاريخ اخذ  اللقاح ويحددة اليوزر
ويكون موعد اللقاح القادم  (next1) بعد شهرين من تاريخ اخذ اللقاح
Dim next1 As Date
next1 = DtpBCG.Value
Me.Dtpnext1.Value = next1.AddMonths(2
DtpBCG= داتا تايم بيكر لتاريخ اخذ اللقاح وهو تاريخ لقاح اسمه البي سي جي
ولذلك يكون تاريخ اللقاح القادم    20/9/2015
اما التسرب  فيكون  المقارنه بين تاريخ اللقاح القادم والتاريخ الحالي  today   فيقارن  التاريخ الحالي  today  وتاريخ اللقاح القادم  ويحسب اذا كانت اكثر من 30 يوم يكون الطفل متسرب واذا قل يكون غير متسرب
وهذا مااقصدة بكودالمقارنه
Dim strDate As Date
       Dim strate As Date
strate = Dtpnext1.Value
       strDate = Today
       TextBox2.Text = DateDiff(DateInterval.Day, strate, strDate)

ارفقت صورة  لواجهة المشروع واشكرك جدا