if DateDiff("d","2006-6-4",inputbox("请输入您要查看的日期:","提示",date)) mod 8 =0 then msgbox "今天该你值班了!",,":(":else msgbox "今天休息!",,":)"