快速取得星期

Dim day() As String = {"(日)", "(一)", "(二)", "(三)", "(四)", "(五)", "(六)"}
MessageBox.Show(day(Convert.ToInt16(Now.DayOfWeek)))