测试代码如下，请使用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 星期六