<asp:Calendar id="Calendar1" runat="server" Height="152px" Width="184px" Font-Names="新細明體" Font-Size="9pt"
DayNameFormat="Full">
<TodayDayStyle BackColor="#80FF80"></TodayDayStyle>
<DayStyle BackColor="#EEF6FF"></DayStyle>
<DayHeaderStyle BackColor="#D5E5F8"></DayHeaderStyle>
<TitleStyle Font-Bold="True" ForeColor="White" BackColor="#8CA5CE"></TitleStyle>
<WeekendDayStyle BackColor="#D5E5F8"></WeekendDayStyle>
</asp:Calendar>
Imports System
Imports System.Globalization
Imports System.Threading
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在這裡放置使用者程式碼以初始化網頁
Dim arrDayNames() As String = {"日", "一", "二", "三", "四", "五", "六"}
Dim culture As CultureInfo = New CultureInfo("zh-TW")
culture.DateTimeFormat.AbbreviatedDayNames = arrDayNames
Me.Calendar1.DayNameFormat = DayNameFormat.Short
Thread.CurrentThread.CurrentCulture = culture
End Sub