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

进入excle，打开VBA的编辑器，在编辑里新建一个过程，命名为whichday

然后是定义一些要用到的变量，全部是字符串的类型。 Dim mydate, question, msg1, msg2, response As String

将用户输入的日期格式进行转换，Cdate是一个将字符串转换为日期的函数，weekday函数是一个将指定的日期在一周当中的天数，返回的是一个数字，如果数字是1，代表的是周末，1则代表的是周一，以此类推。    mydate = Weekday(CDate(response))

对mydate的值进行判断，2-6之间的值，表示是工作日，除此之外是周末，也就是休息日

然后是点击菜单栏上面的“运行”按钮。

回到excle的界面，输入一个日期，点击确定，便会给出相应的提示，这里给出的是工作日的提示。