dim str as string '定义一个字符串函数str = "我的生日是星期" & weekday(#2000/10/10#) - 1 'weekday返回的值比实际的大一天，他每周是以周日开始的。if weekday(#2000/10/10#) = 1 then str = "我的生日是星期日" ‘万一是星期日，作为特例msgbox str
