<% function wd(d) select case datepart("w",d) case 1 wd1="星期日" case 2 wd1="星期一" case 3 wd1="星期二" case 4 wd1="星期四" case 5 wd1="星期五" case 6 wd1="星期六" end select wd=wd1 end function %> 像上面这样改下代码即可，注意红色部分

我是新手什么不知道！请大家多帮忙．

楼上的你的头像,是男孩还是女孩..

对于你的代码，我只能汗一下了，定义一个wd1做为临时变量，最后赋值给wd 与 一开始就赋值给wd有什么区别？

多此一举啊

纯属个人习惯 不过那天也怪,这样修改了以后,在我电脑上(腾讯TT浏览器)运行就正常了! 没修改之前,什么都不显示.

其实只要一行代码就搞定。
Function wd(d)
    wd = "星期" &amp; Mid("日一二三四五六", DatePart("w", d), 1)
End Function