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

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

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

3、再给这些变量进行赋值。msg1 = "周末" msg2 = "皤材装肢工作日" question = "请输入一个日期，格式如：m罪焐芡拂m/dd/yy" response = InputBox(question)

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

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

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

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