23-07-15, 11:55 AM
(آخر تعديل لهذه المشاركة : 23-07-15, 03:02 PM {2} بواسطة 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أو يمكنك استخدام الدالتان أعلاه ب أسلوب أخر حيث اننا نعرف أن وقت التطعيم يجب أن يكون أكبر من الوقت الحالي ب ثلاثون يوما
كود :
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
