判断系统时间为星期几；

dim sysdate,sysweek,sysweekdayname

sysdate=date

sysweek=weekday(sysdate)

sysweekdayname=weekdayname(sysweek,true)

if  sysweekdayname="星期一" then

msgbox sysweekdayname

else

msgbox sysdate

end if