cs.mfalac.com

            <cc1:DynamicPopulateExtender  ID="dpe1" runat="server"
     ClearContentsDuringUpdate="true"
     TargetControlID="myDate" ServicePath="~/timeFormat.asmx"
     ServiceMethod="getDate" >
            </cc1:DynamicPopulateExtender>
            <asp:Panel ID="panel1" runat="server">
            <asp:Label ID="myDate" runat="server" Text="Label"></asp:Label><br />
     <input type="radio" id="rb1" name="format" value="format1" runat="server"
          onclick="$find('dpe1').populate(this.value);" />m-d-y
     <input type="radio" id="rb2" name="format" value="format2" runat="server"
          onclick="$find('dpe1').populate(this.value);" />d.m.y
     <input type="radio" id="rb3" name="format" value="format3" runat="server"
          onclick="$find('dpe1').populate(this.value);" />Just year
</asp:Panel>

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Web.Script.Services

<ScriptService()> _
Public Class timeFormat
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function getDate(ByVal contextKey As String) As String
        Dim myDate As String = ""
        Select Case contextKey
            Case "format1"
                myDate = String.Format("{0:MM}-{0:dd}-{0:yyyy}", DateTime.Now)
            Case "format2"
                myDate = String.Format("{0:dd}.{0:MM}.{0:yyyy}", DateTime.Now)
            Case "format3"
                myDate = String.Format("{0:yyyy}", DateTime.Now)
        End Select
        Return myDate
    End Function
End Class

<div>
     Departure date: <asp:TextBox ID="tbDeparture" runat="server" />
     Return date: <asp:TextBox ID="tbReturn" runat="server" />
</div>

<asp:Panel ID="pnlCalendar" runat="server">
     <asp:UpdatePanel ID="up1" runat="server">
          <ContentTemplate>
               <asp:Calendar ID="c1" runat="server" OnSelectionChanged="c1_SelectionChanged" />
          </ContentTemplate>
     </asp:UpdatePanel>
</asp:Panel>
       <cc1:PopupControlExtender ID="pce1" runat="server"
     TargetControlID="tbDeparture" PopupControlID="pnlCalendar" Position="Bottom" >
       </cc1:PopupControlExtender>
       <cc1:PopupControlExtender ID="pce2" runat="server"
     TargetControlID="tbReturn" PopupControlID="pnlCalendar" Position="Bottom"  >
       </cc1:PopupControlExtender>

vb is :

Protected Sub c1_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs)
    Dim pce As PopupControlExtender = AjaxControlToolkit.PopupControlExtender.GetProxyForCurrentPopup(Page)
    pce.Commit(CType(sender, Calendar).SelectedDate.ToShortDateString())
End Sub

' Clear the current text.
       Message.Text = ""

       ' Iterate through the SelectedDates collection and display the
       ' dates selected in the Calendar control.
       Dim day As DateTime

       For Each day In Calendar1.SelectedDates

           Message.Text &= day.Date.ToShortDateString() & "<br>"

       Next

For Each ArticleRow As DataSetCalendarEvents.BlogArticlesRow In ArticleDayNumber
    If e.Day.Date.Date = ArticleRow.ArticleDate.Date Then
        Dim T As String = ArticleRow.ArticleTitle.ToString()
        Dim Id As String = ArticleRow.ArticleId.ToString()

        e.Cell.Controls.Add(New LiteralControl("<br/>-<a href='../Blog/BlogView.aspx?ArticleId=" + Id + "'>" + T + "</a>"))

Sub MonthChange(sender As Object, e As MonthChangedEventArgs)

         If e.NewDate.Month > e.PreviousDate.Month Then

            Message.Text = "You moved forward one month."

         Else

            Message.Text = "You moved backwards one month."

         End If

      End Sub

    End If
Next