在VB中如何判断一个日期是周末还是工作日？

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的界面，输入一个日期，点击确定，便会给出相应的提示，这里给出的是工作日的提示。