1、进入excle，打开VBA的编辑器，在编辑里新建一个过程，命名为whichday
2、然后是定义一些要用到的变量，全部是字符串的类型。
Dim mydate, question, msg1, msg2, response As String
3、再给这些变量进行赋值。
msg1 = "周末" msg2 = "工作日" question = "请输入一个日期，格式如：mm/dd/yy" response = InputBox(question)
4、将用户输入的日期格式进行转换，Cdate是一个将字符串转换为日期的函数，weekday函数是一个将指定的日期在一周当中的天数，返回的是一个数字，如果数字是1，代表的是周末，1则代表的是周一，以此类推。
mydate = Weekday(CDate(response))
5、对mydate的值进行判断，2-6之间的值，表示是工作日，除此之外是周末，也就是休息日
6、然后是点击菜单栏上面的“运行”按钮。
7、回到excle的界面，输入一个日期，点击确定，便会给出相应的提示，这里给出的是工作日的提示。
