Permalink
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (20 sloc) 780 Bytes
'<Snippet2>
Public Class FutureDateRule
Inherits ValidationRule
Public Overrides Function Validate(ByVal value As Object,
ByVal cultureInfo As System.Globalization.CultureInfo) _
As System.Windows.Controls.ValidationResult
Dim DateVal As DateTime
Try
DateVal = DateTime.Parse(value.ToString)
Catch ex As FormatException
Return New ValidationResult(False, "Value is not a valid date.")
End Try
If DateTime.Now.Date > DateVal Then
Return New ValidationResult(False, "Please enter a date in the future.")
Else
Return ValidationResult.ValidResult
End If
End Function
End Class
'</Snippet2>