求个显示今天是周几的函数，忘记了

[sudeping_ok]

显示今天是周几的函数是什么，忘记了，就是显示今天是周几的英文

[sudeping_ok]

怎么只能显示数值，而不能显示英文吗？

[ipooy]

DatePart("w", TheDate)

[zq972]

select case weekday(now,vbMonday)
case 1
str="Monday"
case 2
str="Tuesday"
case 3
str="Wednesday"
case 4
str="Thursday"
case 5
str="Friday"
case 6
str="Saturday"
case 7
str="Sunday"
end select

[GoldFox]

Weekday(date, [firstdayofweek])

Weekday 函数语法有下列的命名参数：

部分 描述
date 必要。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 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 星期六

[GoldFox]

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 星期六

[happy_sea]

Weekday(Now)

[guojl]

我没有说的了,接分