安達利機車行

Imports System.Globalization
Imports System.Threading

Private Sub Page_Load(ByVal sender As System.Object, 
        ByVal e As System.EventArgs) Handles MyBase.Load
        '  把星期一、星期二改成一、二...
        Dim dayNames() As String = {"日", "一", "二", "三", "四", "五", "六"}
        Dim culture As New CultureInfo("zh-TW")
        culture.DateTimeFormat.AbbreviatedDayNames = dayNames
        Thread.CurrentThread.CurrentCulture = culture
End Sub