Format-value-from-asp


            <%@ Page 	Inherits="ParentPage" src="test.aspx.vb" %>

   
               OnSelectionChanged="DateChanged"
         Cellpadding="5" Cellspacing="5"
         DayHeaderStyle-Font-Bold="True"
         DayNameFormat="Short"
         Font-Name="Arial" Font-Size="12px"
         height="250px"
         NextPrevFormat="ShortMonth"
         NextPrevStyle-ForeColor="white"
         SelectedDayStyle-BackColor="#ffcc66"
         SelectedDayStyle-Font-Bold="True"
         SelectionMode="DayWeekMonth"
         SelectorStyle-BackColor="#99ccff"
         SelectorStyle-ForeColor="navy"
         SelectorStyle-Font-Size="9px"
         ShowTitle="true"
         TitleStyle-BackColor="#ddaa66"
         TitleStyle-ForeColor="white"
         TitleStyle-Font-Bold="True"
         TodayDayStyle-Font-Bold="True" />
   
   You selected: 
   

File: test.aspx.vb
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Public Class ParentPage : Inherits Page
   public lblMessage as Label
   public Calendar1 as Calendar
   
   Public sub Page_Load(obj as object, e as eventargs)
      if not Page.IsPostBack then
         Calendar1.SelectedDate = DateTime.Now
         lblMessage.Text = Calendar1.SelectedDate. _
            ToString("dddd, MMMM dd yyyy")
      end if
   End Sub
   
   Public sub DateChanged(obj as object, e as eventargs)
      if Calendar1.SelectedDates.Count > 1 then
         lblMessage.Text = Calendar1.SelectedDates(0). _
            ToString("dddd, MMMM dd yyyy") & " through " & _
            Calendar1.SelectedDates(Calendar1.SelectedDates. _
            Count - 1).ToString("dddd, MMMM dd yyyy")
      else
         lblMessage.Text = Calendar1.SelectedDate. _
            ToString("dddd, MMMM dd yyyy")
      end if
   End Sub
End Class
ASP Net Controls ASP.Net Tutorial
