<%@ Page Language=VB Debug=true %> Sub Date_ServerValidation(source As object, E As ServerValidateEventArgs) If IsDate(E.Value) Then If Year(E.Value) = Year(Today) Then E.IsValid = True Else E.IsValid = False End If Else E.IsValid = False End If End Sub Sub SubmitBtn_Click(Sender As Object, E As EventArgs) End Sub
Validating for a Date in the Current Year Using the CustomValidator Control
Enter a date in the current year:
id="txtDate" runat=server /> id="customDate" controltovalidate="txtDate" onservervalidate="Date_ServerValidation" display="Dynamic" font-name="Verdana" font-bold="True" font-size="10pt" runat="server"> You must enter a date in the current year!