b = Weekday(now)//分离出现在时间里面星期天数1代表星期天，7代表星期六If b = 6 Then MessageBox "今天是星期五"Else MessageBox "没到星期五呢"End If
菜鸟水平请自己理解。
看看按键的 日期 下面的函数.应该有你要的
