如何用VBA算出今天星期幾

最近在做論文的東西要寫VBA 本來二技畢業就發誓不要再寫程式的我 還是逃不開這個魔咒

連在寫這篇文章的時侯還肚子痛 跑去拉屎之後再回來寫

有感於常常在網路上找很多資料，可是有時侯再找就不見了 決定把我寫好的東西記在部落格上 這樣子別人也可以查得到 高手路過可能也可以幫我修改一下

今天寫這個是為了要判斷當天是不是工作天

Sub test()
Dim Workday As Integer
Dim Response
Workday = Application.Evaluate("WEEKDAY(TODAY())-1") 'Application.Evaluate這個好東西可以讓EXCEL裡面的函數執行，weekday()會回傳今天是一個星期的第幾天，-1是因為weekday內定星期日是第一天
Response = MsgBox(Workday, vbYesNo) '為了測有沒有寫對 所以用MsgBox顯示Workday的數字
End Sub