WEEKDAY 用途：返回某日期的星期數。在預設情況下，它的值為1(星期天)到7(星期六)之間的一個整數。 語法：WEEKDAY(serial_number，return_type) 引數：Serial_number 是要返回日期數的日期，它有多種輸入方式：帶引號的文字串(如"2001/02/26")、序列號(如35825 表示1998 年1 月30 日) 或其他公式或函式的結果(如DATEVALUE("2000/1/30"))。Return_type為確定返回值型別的數字，數字1 或省略則1 至7 代表星期天到數星期六，數字2 則1 至7 代表星期一到星期天，數字3則0至6代表星期一到星期天。 例項：公式“=WEEKDAY("2001/8/28"，2)”返回2(星期二)， =WEEKDAY("2003/02/23"，3)返回6(星期日)。

if text1.text "" then

if isdate(text1.text) then

msgbox"日期格式"

text1.setfocus

endif

endif

2、拖拽窗體周圍的小正方形調節窗體的大小，修改borderstyle屬性值為0-none，startupposition屬性值為螢幕中心。

3、選擇工具箱裡標籤工具，在窗體上建立兩個標籤控制元件，一個label1一個label2，修改兩個標籤控制元件的caption屬性值為空。

5、雙擊窗體進入程式碼區域，輸入程式碼 Timer1.Interval = 1000 Timer1.Enabled = True

6、接著雙擊timer1控制元件，進入觸發器程式碼區域輸入程式碼： Label2.Caption = "今天是：" & Date Label1.Caption = "現在是：" & Format(Now, "AMPM(hh:mm:ss)")

7、接著雙擊commmand1控制元件進入程式碼區域輸入程式碼為end，即為退出程式。