[silverlight]

كود :

   Friend Function CheckVaccinationPeriod(currentDate As DateTime, vaccinationDate As DateTime, period As Integer) As Boolean
       If vaccinationDate.Subtract(currentDate).TotalDays > period Then
           Return True
       End If
       Return False
   End Function

   Friend Function CheckVaccinationPeriod(vaccinationDate As DateTime) As Boolean
       Return CheckVaccinationPeriod(DateTime.Now, vaccinationDate, 30)
   End Function

الدالة اعلاه تسترجع قيمة عبارة عن Boolean  عليك فقط ان تمرر تاريخ التطغيم الي الدالة و ايضا تستخدم جملة شرطية للتاكد من أن الدالة قد تحققت قيمتها و بناء علي تلك القيمة تقوم بتغيير لون التكست او العكس صحيح

---

أو يمكنك استخدام الدالتان أعلاه ب أسلوب أخر حيث اننا نعرف أن وقت التطعيم يجب أن يكون أكبر من الوقت الحالي ب ثلاثون يوما

كود :

   Friend Function CheckVaccinationPeriod(currentDate As DateTime, vaccinationDate As DateTime, period As Integer) As Boolean
       If vaccinationDate.Subtract(currentDate).TotalDays > period Then
           Return True
       End If
       Return False
   End Function

   Friend Function CheckVaccinationPeriod(period As Integer) As Boolean
       Dim vaccinationDuration As TimeSpan = New System.TimeSpan(period, 0, 0, 0)
       Dim vaccinationDate As DateTime = DateTime.Now.AddDays(vaccinationDuration.Days)
       Return CheckVaccinationPeriod(DateTime.Now, vaccinationDate, vaccinationDuration.Days)
   End Function

عليك ان تمرر المدة الزمنية للتطعيم و في حالتك هنا هي 30 يوما

كود :

       If CheckVaccinationPeriod(30) Then
           ' do something
       End If