测试代码如下，请使用IE运行本示例
复制代码 代码如下:
<script language="vbscript">
d=now
xqj=weekday(d)
msgbox xqj'输出数字，星期日为1，星期一为2...依次类推，星期六为7
msgbox weekdayname(xqj)
</script>
WEEKDAY 用途：返回某日期的星期数。在默认情况下，它的值为1(星期天)到7(星期六)之间的一个整数。
Weekday是Visual Basic和VBS中的一个函数，功能返回代表一星期中某天的整数。
语法
复制代码 代码如下:Dim x
x=Weekday(date[,FirstdayOfWeek])
参数
Weekday 函数的语法有以下参数：
参数 描述 date 必选。可以代表日期的任意表达式。 如果 date 参数中包含 Null，则返回 Null FirstdayOfWeek 可选。指定星期中第一天的常数。 如果省略，默认使用 vbSunday
参数设置值
FirstdayOfWeek 参数有如下设置：
常数 值 描述 vbUseSystem 0 使用区域语言支持 (NLS) API 设置 vbSunday 1 星期日 vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六
Weekday 函数返回如下值：
常数 值 描述 vbSunday 1 星期日 vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六
WeekdayName用于返回一个字符串，表示一星期中的某天。
语法
WeekdayName(weekday, abbreviate, firstdayofweek)
WeekdayName函数语法有如下几部分：
weekday 必需的。数字值，表示一星期中的某天。该数字值要依赖于firstdayofweek设置中的设置值来决定。
abbreviate 可选的。Boolean值，表示星期的名称是否被缩写。如果忽略该值，缺省值为False，表明星期的名称不能被缩写。
firstdayofweek 可选的。数字值，表示一星期中第一天。关于其值，请参阅“设置值”部分。
firstdayofweek参数值如下：
常数 值 描述
vbUseSystem 0 使用本国语言支持 (NLS) API设置值。
vbSunday 1 星期日（缺省）。
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六