Untitled

    Public startDate As Date
    Public endDate As Date

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles MyBase.Load
        'Put user code to initialize the page here
        If (Not IsPostBack) Then
            Calendar1.SelectedDate = Date.Now()
        End If
    End Sub

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        lblStartVac.Visible = True
        startDate = Calendar1.SelectedDate
        'lblStartVac.Text = "Vacation Start Date: " & Calendar1.SelectedDate.ToShortDateString()
        lblStartVac.Text = "Vacation Start Date: " & startDate.ToOADate
    End Sub

    Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object , ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
        lblSelected.Visible = True
        lblSelected.Text = "You selected: " & Calendar1.SelectedDate.ToShortDateString()
    End Sub

    Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
        lblEndVac.Visible = True
        endDate = Calendar1.SelectedDate
        'lblEndVac.Text = "Vacation End Date: " & Calendar1.SelectedDate.ToShortDateString()
        If (endDate.ToOADate < startDate.ToOADate) Then
            lblEndVac.Text = "Vacation cannot end before it starts! Choose another date."
        Else
            lblEndVac.Text = "Vacation End Date: " & startDate.ToOADate
        End If
    End Sub
End Class